Заполните случайными числами из интервала от -44 до 18 одномерный массив,состоящий из 15...

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;</p>

   writeln(d);

   writeln(n);

end.

Comments

writeln(d); можно убрать, она выводит содержимое массива.