Nhập vào một dãy N số nguyên A1,A2,...,AN (N≤10000,|Ai|≤109). Hãy in ra màn hình Trung bình cộng các phần tử âm. Dữ liệu vào: Dòng đầu tiên chứa số N Dòng thứ 2 chứa N số nguyên A1,A2,...,AN. Kết quả: 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. Sample Input Copy 7 7 6 -4 19 -22 51 -82 Sample Output Copy -36.00 https://lqdoj.edu.vn/problem/av04

2 câu trả lời

Đã 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 ạ !!