Question

заполните случайными числами из интервала от -44 до 18 одномерный массив,состоящий из 15 значений.
Определите количество элементов массива,непревышающих число 13.

Answer 1

var

   d : array of integer := new integer[15];

   n : integer;

begin

   d := arrRandom(15, -44, 18);

   for var i := 0 to 14 do if d[i] <= 13 then n += 1;

   writeln(d);

   writeln(n);

end.