program Cau_2;

uses crt;

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

      n,i,d: integer;

Begin

         clrscr;

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

         i:=1;

         while i<=n do

         begin

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

                  if A[i] mod 5=0 then d:=d+1;

                  i:=i+1;

         end;

         write('Co ',d,' so chia het cho 5');

         readln

End.

uses crt;

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

i,n,d: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 5=0 then d:=d+1;

end;

writeln ('trong mang co ',d,' so chia het cho 5');

readln;

end.