Напишите программу, Напишите программу, в которой осуществляется ввод целых чисел (пока не будет введен 0) и подсчет суммы и среднего арифметического введенных отрицательных чисел. Использовать
1) оператор REPEAT
2) оператор WHILE
В программе паскаль новой версии
PascalABC.NET 3.5.1 build 2290 (28.12.2019) "Новая версия"
begin
var negs := ReadSeqIntegerWhile(p -> p <> 0).Where(p -> p < 0).ToList;
negs.Sum.Println;
negs.Average.Println;
end.
Объяснение: