Ответ
Х = 5
Х (5) = 5 + 5
Х (10) = 10 + 10
Х (20)
Y = 5
Y (5) = 5 * 4
Y (20)
X 20
Y 20
8 ж 9б 10 в 11 г 12 а 13 б 14 а 15 а 16а
Есть такой алгоритм: из числа после to вычитаем число - счетчик и прибавляем один, получается количество повторов. Он работает всегда, например, цикл for i:=5 to 14 do. Получается так: 14 - 5 + 1 = 10. Цикл выполнится 10 раз.
В твоем случае получается так: 57 - 1 + 1 = 57.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function amax(a:array of integer):integer;
begin
Result:=a.Max
end;
begin
var x:=ArrRandom(ReadInteger('n='),-50,50); x.Println;
Writeln('Максимальный элемент равен ',amax(x))
end.
<u>Пример</u>
n= 15
-21 9 27 -46 -17 -21 22 50 -50 -47 -20 43 -23 43 -46
Максимальный элемент равен 50