Question

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

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
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.