Tin học Bài tập pascal

[tydfdg]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào 2 dãy số nguyên N. Nhập 1 số nguyên X. Viết ct cho biết X có trong dãy số hay không? Nếu có, cho bt có bao nhiêu phần tử = X và vị trí các phần tử đó

 

[ka1412]

uses crt;
var a,b:array[1..100] of integer;
n,i,x,k:integer;
begin
    write('Nhap n:');readln(n);
    writeln('Nhap cac so day thu nhat:');
    for i:=1 to n do
    begin
        write('a[',i,']:');readln(a[i]);
    end;writeln;
    writeln('Nhap cac so day thu hai:');
    for i:=1 to n do
    begin
        write('b[',i,']:');readln(b[i]);
    end;writeln;
    write('Nhap x:');readln(x);
    for i:=1 to n do
    begin
        if a[i]=x then inc(k);
        if b[i]=x then inc(k);
    end;
    if k=0 then write('Khong co x') else
    begin
        writeln('Co ',k,' phan tu ',x);
        writeln(x,' co o vi tri:');
        for i := 1 to n do if a[i]=x then write('a[',i,'] ');writeln;
        for i := 1 to n do if b[i]=x then write('b[',i,'] ');writeln;
    end;
    readln
end.

P/s: Lần sau bạn đăng 1 bài thôi nha =)))