Pascalabc.net. нужно создать программу которая вычислит - вопрос №8386065 от filimonovajulia1 31.03.2022 04:48

Question

Информатика: Pascalabc.net. нужно создать программу которая вычислит сколько в выборке отрицательных чисел. !

filimonovajulia1 · Answer

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('Отрицательных: ',ReadSeqReal(ReadInteger('n=')).Where(t->t<0).Count)
end.

Пример
n= 7
3.4 -1.45 0 -0.35 12 11.3 2
Отрицательных: 2