Question

câu 1: a, viết chương trình nhập vào 1 dãy n số nguyên từ bàn phím .In ra dãy đã nhập ra màn hình
b, đếm xem có bao nhiêu số chẵn trong dãy? có bao nhiêu số chẵn chia hết cho 5 trong dãy

Answer 1

Lời giải:

program hotrotinhoc;

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

d,d1,i,n: integer;

begin

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

for i:=1 to n do

begin

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

end;

d:=0; d1:=0;

for i:=1 to n do

begin

write(a[i],' ');

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

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

end;

writeln('Co tat ca ',d,' so chan');

write('Co tat ca ',d1,' so chan chia het cho 5');

readln

end.