Question

viết chương trình nhập vào tối đa 200 số nguyên đếm xem có bao nhiêu số chẵn và chia hết cho 5

Answer 1

uses crt;

\n\n

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

\n\n

i,n,dem:integer;

\n\n

begin

\n\n

clrscr;

\n\n

repeat

\n\n

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

\n\n

until (0<n) and (n<=200);

\n\n

for i:=1 to n do

\n\n

begin

\n\n

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

\n\n

end;

\n\n

dem:=0;

\n\n

for i:=1 to n do

\n\n

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

\n\n

writeln(\'So phan tu chan va chia het cho 5 la: \',dem);

\n\n

readln;

\n\n

end.

\n