Создайте программу которая заполняет массив из 15 элементов случайными целыми числами в диапазоне от 1 до 100 , а затем преобразовывает уменьшая на 5.
Создайте программу которая заполняет массив из 15 элементов случайными целыми числами в диапазоне от 1 до 100 , а затем преобразовывает уменьшая на 5.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы