Question

Nhập vào một dãy N số nguyên A[1],A[2],...,A[N] (N ≤ 10000, |A[i]| ≤ 109). Hãy in ra màn hình Trung bình cộng các phần tử âm.

Input:

- Dòng đầu số N - Dòng 2 chứa N số nguyên A[1],A[2],...,A[N].

Output:

- In ra Trung bình cộng các phần tử âm lấy 2 số lẻ sau phần thập phân, nếu trong dãy không có số âm nào thì in ra -1.

Ví dụ input 7
7 6 -4 19 -22 51 -82 output -36.00

Answer 1

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 binh cong cac so am la: ',t/dem:4:2);
readln;
end.