Question

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

Answer 1

var
  a : array [1..16] of integer;
  i, c : integer;
begin
  randomize;  
  for i := 1 to 16 do
    a[i] := random (41) - 20;
  c := 0;
  for i := 1 to 16 do
    if a[i] < 0 then c := c + 1;
  writeln (c);
end.