Viết chương trình thực hiện các yêu cầu sau: a) Nhập mảng gồm n số nguyên (n<= 100) b) In ra các số chia hết cho 5 trong mảng c) Đếm xem.trong mảng có bao nhiêu số là ước của 10 d) Tímh tổng các số là bội của k(k nhập vào từ bàn phím) e) Đếm xem trong mảng có bao nhiêu số âm Giúpp mình với ạ

program baitap;

uses crt;

var A:array[1..100] of integer;

      n,du,k,t,da:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

da:=0;   du:=0;  

writeln('NHAP GIA TRI TUNG PHAN TU MANG');

for i:=1 to n do

 begin

  write('Nhap phan tu thu ',i,': ');

  readln(A[i];

  if 10 mod A[i]=0 then du:=du+1;

  if A[i]<0 then da:=da+1;

 end;

writeln('Mang vua nhap la: ');

for i:=1 to n do

 write(A[i]:4);

writeln;

write('Nhap k: ');  readln(k);

write('Cac so chia het cho 5 la: ');

for i:=1 to n do

 if A[i] mod 5=0 then write(A[i],' ');

writeln;

writeln('Trong mang co ',d,' so la uoc cua 10');

t:=0;

for i:=1 to n do

 if A[i] mod k=0 then t:=t+A[i];

writeln('Tong cac so chia het cho ',k,' trong mang la: ',t);

writeln('Trong mang co ',da,' so am');

readln

end.