
Ianrim
7 год назад
Напиши программу, которая заполняет массив Rost длиной 12 случайными числами от 150 до 180
ОТВЕТЫ

Феофилактович
Aug 14, 2019
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";
ПЕР
Rost: РЯД 12 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(Rost) - 1 ВЫП
Rost[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) + 150
КОН
КОН Задание.
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";
ПЕР
Rost: РЯД 12 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(Rost) - 1 ВЫП
Rost[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) + 150
КОН
КОН Задание.
59
Смежные вопросы: