Question

Answer 1

program bai_tap;

uses crt;

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

m,i,dem:integer;

begin

clrscr;

write('nhap so m:');readln(m);

while m>100 do writeln('ban hay nhap lai:');

dem:=0;

for i:=1 to m do

begin

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

end;

for i:=1 to m do 

if (c[i] mod 2=0)and(c[i] mod 5=0) then dem:=dem+1;

write(dem);

readln;

end.