uses crt;
var i,n,s:longint; a:array[1..1000000]of longint; 
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i] mod 2=1 then inc(s,a[i]);
      end; 
   write('Day vua nhap: ');
   for i:=1 to n do write(a[i],' '); writeln;
   writeln('Tong so le: ',s);
readln
end.

Nếu n<0 thì còn nhập gì nữa bạn @@.

uses crt;
var a:array[1..1000]of longint;
    n,i:word;
    sum:longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            if a[i] mod 2=1 then inc(sum,a[i]);
        end;
    for i:=1 to n do write(a[i],' '); writeln;
    write(sum); 
readln;
readln;
end.