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

Саша15e Саша15e    2   26.08.2019 10:50    0

Ответы
xeniapopsoip00ty7 xeniapopsoip00ty7  03.08.2020 08:50
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика