$#QLinkVN$

program QLinkVN;
uses crt;
var n,i,dem,tong: integer;
    a: array[1..1000] of integer;
begin clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do
begin
tong:=tong+a[i];
if (a[i] mod 2=1) then dem:=dem+1;
end;
writeln('Tong cac so la ',tong,' va co ',dem,' so le!');
readln end.

uses crt;

var A : array [1 .. 100] of integer;

i, N, T, d : integer;

begin

clrscr;

T := 0; d := 0;

write('Nhap so n = '); readln(n);

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' : ');

        readln(A[i]);

        T := T + A[i];

        if (A[i] mod 2 <> 0) and (A[i] <> 0) then

            d := d + 1;

    end;

writeln('Tong cac so nguyen = ', T);

writeln('Day co ', d ,' so le');

readln

end.