Question

в массиве из 10 чисел с плавающей точкой найти кол-во положительных и кол-во отрицательных чисел (Паскаль)

Answer 1

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

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-9900,9900).Select(x->x/100); a.Println;
  Writeln('Количество отрицательных элементов ',a.Where(x->x<0).Count);
  Writeln('Количество положительных элементов ',a.Where(x->x>0).Count)
end.

Пример
n= 9
-6.69 -71.7 -15.46 -23.53 51.7 2.86 -81.88 70.93 56.41
Количество отрицательных элементов 5
Количество положительных элементов 4