Даны N вещественных чисел. Найти среднее арифметическое отрицательных чисел

Question

Информатика

Моика

11 мая, 09:58

Даны N вещественных чисел. Найти среднее арифметическое отрицательных чисел

+1

Ответы (1)

Знаете ответ?

Эльвира · Answer 1

Program n1;

var n, i, k: integer;

sum, a: real;

begin

sum:=0;

k:=0;

write ('n=') ;

readln (n) ;

for i:=1 to n do

begin

readln (a) ;

if a<0 then begin

sum:=sum+a;

k:=k+1;

end;

end;

writeln (sum/k) ;

end.