Bai 1:
Uses crt;
Var a:array[1..250] of integer;
n,i,tong:integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do if (a[i] mod 5=0) and (a[i] mod 3=0) then tong:=tong+a[i];
write('tong cac so chia het cho 3 va 5 la: ',tong);
readln;
end.
Bai 2:
Uses crt;
Var a:array[1..250] of ingteger;
n,i,tong,k:integer;
begin
write('nhap n: ');readln(n);
write('nhap k: ');readln(k);
for i:=1 to n do readln(a[i]);
for i:=1 to n do if a[i] mod k=0 then tong:=tong+a[i];
write('tong cac so chi het cho ',k,' la: ',tong);
readln
end.