Напишите программу, Напишите программу, в которой - вопрос №10828528 от Marina20012608 21.07.2020 15:52

Question

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

Marina20012608 · Answer

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.

Объяснение: