code:

uses crt;
var a:array [1..1000] of integer;
s1,s2,i,t,n:integer;
begin
clrscr;
write('nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,': '); readln(a[i]);
if a[i]<0 then s1:=s1+a[i];
if a[i] mod 2=0 then
begin
s2:=s2+a[i];
t:=t+1;
end;
end;
writeln('tong cac so am trong day la: ',s1);
writeln('tong cac so chan trong day la: ',s2);
write('trung binh cong cac so chan trong day la: ', s2/t:3:1);
readln;
end.

uses crt;
var a:array[1..10000]of longint;sa,sc,i,dem,n:longint;
begin
 clrscr;
  readln(n);
  sa:=0;
  sc:=0;
  dem:=0;
  for i:=1 to n do
        begin
         readln(a[i]);
         if(a[i]<0)then sa:=sa+a[i];
         if(a[i] mod 2=0)then
                begin
                 sc:=sc+a[i];
                 inc(dem);
                end;
        end;
  writeln('tong cac so am trong day la:',sa);
  writeln('tong cac so chan trong day la:',sc);
  writeln('trinh binh cong cac so chan trong day la:',sc/dem:4:2);
 readln
end.