Question

mn giúp em với ạ em cần gấp lập trình thực hiện các công việc sau : - nhập từ bàn phím dãy N số nguyên - đếm các phần tử chẵn trong dãy số - tìm trong dãy số một phần tử có giá trị bằng k ( k được nhập từ bàn phím)

Answer 1

uses crt;

var n,i,k,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So phan tu chan trong day so la: ',dem);

write('Nhap so k='); readln(k);

kt:=0;

for i:=1 to n do 

  if a[i]=k then kt:=i;

if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)

else writeln('Trong day co phan tu bang ',k);

readln;

end.