Câu 4:
uses crt;
var a:array[1..40] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 40 do
begin
write('a[',i,']: '); readln(a[i]);
if a[i] mod 3=0 then inc(s,a[i]);
end;
writeln('Tong cac so chia het cho 3: ',s);
readln;
end.
Câu 5:
uses crt;
var a:array[1..50] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 50 do
begin
write('a[',i,']: '); readln(a[i]);
if a[i] mod 5=0 then inc(s,a[i]);
end;
writeln('Tong cac so chia het cho 5: ',s);
readln;
end.