Tin học Tin 11 viết chương trình

[phamhiennb2003]

[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.

Nhập vào 1 dãy số nguyên gồm N số nguyên a1, a2....aN (giả sử N<=100) . viết chương trình tính tổng các số chia hết cho 2 , cho 3 , cho 4 , cho 5
( đây là đề thầy mình cho về nhà , mọi người giúp mình với ạ , thứ hai mình phải nộp rồi , mình cảm ơn )

 

[bùi thị xuân mai]

đây nha cậu :>
uses crt;
var i,n,j,s,d,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a);
end;
for i:=1 to n do
begin
if a mod 2=0 then s:=s+a;
if a mod 3=0 then d:=d+a;
if a mod 4=0 then t:=t+a;
if a mod 5=0 then j:=j+a;
end;
writeln('tong cac so chia het cho 2 la:',s);
writeln('tong cac so chia het cho 3 la:',d);
writeln('tong cac so chia het cho 4 la:',t);
writeln('tong cac so chia het cho 5 la:',j);
readln
end.