Найдите количество превышающих 4 в паскале

ASabina1111111 ASabina1111111    3   30.08.2019 20:50    1

Ответы
kirill163aye kirill163aye  03.08.2020 12:21
Begin
 var a:=ArrRandom(10, -10,10);
 a.Println();
 writeln(a.Where(x->x>4).Count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Gurza97 Gurza97  03.08.2020 12:21
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadArrInteger(ReadInteger('n=')).Where(x->x>4).Count)
end.

Пример
n= 5
3 7 0 -5 9
2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика