1. var n,i,le:longint;
a: array [1..1000] of longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if not a[i] mod 2 = 0 then inc(le);
write('Tong so le la: ',le);
readln;
end.
2. var a: array [1..200] of real;
s:real;
i:longint
begin
for i:=1 to 200
begin
write('a[',i,'] = ');
read(a[i]);
s:=s+a[i]
end;
write('Tong la: ',s);
end.