Question

Дан массив состоящий из 50 элементов, подсчитаит колво отрицательных чисел.

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=ArrRandom(50,-99,99); a.Println;
  Writeln('Отрицательных ',a.Count(x->x<0))
end.

Пример
-60 -68 4 47 30 30 25 -39 -11 24 25 95 -93 95 55 -19 14 71 14 -32 -16 -87 2 54 19 14 39 -40 -26 -62 -32 -86 -18 43 -22 85 54 39 -2 -49 65 -99 -45 -14 -70 89 62 -29 55 -83
Отрицательных 24