В одномерном массиве из N чисел вывести ** экран количество положительных и отрицательных...

Question

В одномерном массиве из N чисел вывести на экран количество положительных и отрицательных элементов

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Положительных ',a.Where(x->x>0).Count,
      ', отрицательных ',a.Where(x->x<0).Count)<br>end.

Пример
n= 15
-41 -3 -7 9 10 33 -6 -16 30 -47 -23 22 3 -14 -38
Положительных 6, отрицательных 9

Answer 2

Var
   A:array[1..10000] of shortint;
   N,i,p,o:integer;
Begin
Randomize;
O:=0;
P:=0;
Write('N = ');ReadLn(N);
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn;
WriteLn('Количество положительных: ',p);
WriteLn('Количество отрицательных: ',o);
ReadLn
End.