<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (n, m) := ReadInteger2;
var a := ArrRandom(10, n, m);
a.Println
end.
<h2>-8 13</h2><h2>-7 11 10 -6 -5 -2 -4 13 13 10</h2>
K изначально равна нулю, цикл проверяет каждый элемент массива, если он больше К, то К присваивается этот элемент. То есть К - максимальный элемент массива. Переменная N нас не волнует, т.к. выводится на экран K.
Максимальный элемент в этом массиве равен 50, и ответ 50.
//Pascal
var
A: array [1 .. 5] of integer;
k, buf, i, j: integer;
ArithMean: real;
begin
for i := 1 to 5 do
begin
write('A[', i, '] = '); readln(A[i]);
ArithMean := ArithMean + A[i];
end;
for i := 1 to 5 - 1 do
begin
k := i;
for j := i + 1 to 5 do
if A[j] < A[k] then k := j;
buf := A[i];
A[i] := A[k];
A[k] := buf;
end;
for i := 1 to 5 do write(A[i]:4);
writeln;
writeln('Среднее арифметическое = ', (ArithMean / 5):0:2);
end.
Https://studopedia.ru/3_177371_osnovnie-algoritmicheskie-konstruktsii-bazovie-algoritmi.html