Tin học Pascal

[Huyen Tram]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

cho dãy A1...An. Tìm các số chia hết cho 3 và 5 của dãy A1...An

 

[Trâm Nguyễn Thị Ngọc]

var
a:array[1..100] of integerl
n:integer;
begin
readln(n);
for i:=1 to n do
readln(a);
write('cac pt chia het cho 3 va 5 la:');
for i:=1 to n do
if (a mod 3=0) and (a mod 5=0) then write(a);
readln
End.