Question

7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím

e) In ra màn hình các số chia hết cho 3

Answer 1

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

i,n:integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

writeln('Cac so chia het cho 3 la ');

for i:=1 to n do

if a[i] mod 3 = 0 then write(a[i],'   ');

readln;

end.