В Pascal ввести с клавиатуры 20 чисел. найти среднее арифметическое отрицательных

Question

В Pascal ввести с клавиатуры 20 чисел.
найти среднее арифметическое отрицательных

Comments

а отрицательных чего?

---

Отрицательных чисел

Answer 1

Program n1;
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin<br>sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.