Question

nhập vào một dãy số gồm n phần tử và một số nguyên A . Hãy thông báo xem số A có xuất hiện trong dãy số đó không và nếu xuất hiện thì xuất hiện bao nhiêu lần .

Answer 1

var        A:array[1..100] of integer; n,i,dem,so:integer;
begin
             write('Nhap n:');readln(n);
             for i:=1 to n do
             begin
                       write('A[',i,']=');readln(A[i]);
             end;
             write('Nhap so A:');readln(so);
             dem:=0;
             for i:=1 to n do if A[i]=so then dem:=dem+1;
             if dem=0 then write('So ',so,' khong xuat hien trong day') else
             begin
                    writeln('So ',so,' co xuat hien trong day');
                    write('So lan xuat hien: ',dem);
             end;
             readln;
end.

Chúc bạn học tốt!