Đã test.

=======================

s = 0
d = 0
n = int(input())
a = str(input())
a = a.split()
for i in a:
    i = int(i)
    if i < 0:
        s += i;
        d += 1;
if d == 0:
    print(-1)
else:
    print("{:.2f}".format(s/d))

uses crt;
var a:array[1..10000]of integer;
n,i,t,dem:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<10000);
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until (a[i]<=109);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]<0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('trung bình cộng của các số là : ',t/dem:4:2);
readln;
end. 

                                                                    học tốt ạ !!!!!!

                                                               nếu được xin hay nhất ạ !!