Создайте программу которая заполняет массив из 15 элементов случайными целыми числами в диапазоне от 1 до 100, а затем преобразовывает уменьшая на 5.

Question

Информатика

Оливия

30 июня, 02:22

Создайте программу которая заполняет массив из 15 элементов случайными целыми числами в диапазоне от 1 до 100, а затем преобразовывает уменьшая на 5.

+2

Ответы (1)

Знаете ответ на вопрос?

Юнонка · Answer 1

Var

m : array[1 ... 15] of Integer;

i : Byte;

Begin

For i:=1 to 15 do

Begin

m[i]:=Random (100) + 1;

Write (m[i]:10) ;

m[i]:=m[i]-5;

Writeln (m[i]:10) ;

end;

end.