Заполните случайными числами из интервала от -44 до - вопрос №4418159951862 от Крутойбрат 07.05.2020 21:56

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.