Заполните случайными числами из интервала от -44 - вопрос №99516374418 от вообшетоямаг 26.01.2020 22:55

Question

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

вообшетоямаг · Answer

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.