viết chương trình nhập A gồm N số nguyên dương (N-50) : N được nhập từ bàn phím.Sau đó thông báo ra màn hình các số chia hết cho 3
1 câu trả lời
var a:array[1..1000] of longint;
n,i:longint;
begin
write('nhap so luong phan tu ');readln(n);
for i:=1 to n do read(a[i]);readln;
for i:=1 to n do
if a[i] mod 3=0 then write(a[i],' ');
readln
end.
