a)
program h247;
uses crt;
var a:array[1..1000]of integer;
i, n, tl: integer;
begin
write('Nhap n '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] '); readln(a[i]);
if a[i] mod 2<>0 then tl:=tl+a[i];
end;
write('Tong so le trong mang la ',tl);
readln;
end.
b)
program h247;
uses crt;
var a:array[1..1000]of integer;
i, n, tong: integer;
begin
write('Nhap n '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] '); readln(a[i]);
if (a[i] mod 2=0) and (a[i] mod 5=0) then tong:=tong+a[i];
end;
write('Tong cac so chia het cho 2 va 5 la ',tong);
readln;
end.
