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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Ответ:

PascalABC.NET 3.6.2

begin

 var a := ReadSeqIntegerWhile(p -> p <> 0);

 a.Where(p -> p < 0).Count.Println;

end.

Объяснение: