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

Question

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

новпрве · Answer

Program n1;var i,sum,a,k: integer;beginsum:=0;k:=0;for i:=1 to 20 dobeginreadln(a);if a 0 then beginsum:=sum+a;k:=k+1;end;end;write(sum/k);end....