program Min;
uses crt;
var A:array[1..50] of longint;
    i,n: integer;
    t1,t2: longint;
begin
   clrscr;
   t1:=0; t2:=0;
   repeat
   begin
      write('Nhap N: ');
      readln(n);
   end;
   until n<=50;
   for i:=1 to n do 
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   for i:=1 to n do 
   begin
      write(A[i]:4);
      if A[i]>=0 then t1:=t1+A[i];
      if A[i] mod 2 <> 0 then t2:=t2+A[i];
   end;
   writeln('');
   writeln('Tong cac phan tu la so nguyen duong: ',t1);
   writeln('Tong cac phan tu la so le: ',t2);
   readln
end.
   

program hip_hop_never_die;

uses crt;

var a,n,i,b,c : integer;

e: array[1..50] of real;

begin

b:=0; c:=0

writeln('nhap tong so cac phan tu: ');                  readln(n)

for i:= 1 to n do

begin

    write('nhap so thu ',i);          readln( e[i] );

end;

for i:= 1 to n do

begin

write(' so thu ', i,' la : ',e[i]);

end;

for i:= 1 to n do

begin

if e[i] >= 0 then b:=b+e[i] ;

writeln('tong cac so nguyen duong la: ',b);

end;

for i:= 1 to n do

begin

if e[i] mod 2 =1 then c:=c+1;

writeln('tong cac so le la: ',b);

end;

readln;

end.