Question

составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и подсчитывает количество отрицацельных элементов

Answer 1

PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)

var 
 a:array[1..16] of integer;
begin
 var s:=0;
 for var i:=1 to 16 do
  begin
   a[i]:=random(-20,20);
   write(a[i]:5);
   if a[i]<0 then s+=1;
  end;
  writeln;
   Writeln('Кол-во отрицательных чисел в масиве: ',s);
end.