Question

Напишите программу, Напишите программу, в которой осуществляется ввод целых чисел (пока не будет введен 0) и подсчет суммы и среднего арифметического введенных отрицательных чисел. Использовать

1) оператор REPEAT

2) оператор WHILE
В программе паскаль новой версии!! Пж помогите​

Answer 1

Ответ:

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.

Объяснение: