Question

Заполнить массив случайными числами в интервале от -20 до 44. Посчитать количество отрицательных чисел.

Answer 1

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

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

Пример
n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9

Answer 2

uses Crt;
Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
ClrScr;
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(65)-20;
    Write(' ',A[i]);
    if A[i] < 0 then k:=k+1
    End;
WriteLn;
WriteLn('Количество отрицательных чисел: ',k);
ReadLn
End.