Сместиться на (–3, 1)повтори 2 разсместиться на (1, 1) сместиться на (−3, 2) сместиться на (0,−4)конец - id120986020230124 от R456 24.01.2023 22:10

Question

Информатика: Сместиться на (–3, 1)повтори 2 разсместиться на (1, 1) сме­стить­ся на (−3, 2) сме­стить­ся на (0,−4)конец какую един­ствен­ную ко­ман­ду надо вы­пол­нить чертёжнику, чтобы вер­нуть­ся в ис­ход­ную точку, из ко­то­рой он начал движение? варианты ответов: 1) сме­стить­ся на (4, 2)2) сме­стить­ся на (–4, –2)3) сме­стить­ся на (7, 1)4) сме­стить­ся на (–7, –1) нужно! ​

R456 · Accepted Answer

Var
a : array[1..10] of word;
max : word;
begin

randomize;

for I : byte := 1 to 10 do
a[i] := random(1, 60000);

max := 0;
for I : byte := 1 to 10 do
if a[i] > max then max := a[i];

writeln(max*3);

end.

Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.

MOGZ ответил