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

Question

Информатика

Минаша

13 октября, 17:00

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

+5

Ответы (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.