Заполнить линейный массив из 10 элементов случайными числами от -40 до 40. Найти максимальный элемент массива. Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program max_element;

var
arr: array[1..10] of integer;
i, max_element: integer;

begin
randomize;

// заполнение массива случайными числами от -40 до 40
for i := 1 to 10 do
begin
arr[i] := random(81) - 40;
writeln('Элемент ', i, ': ', arr[i]);
end;

// поиск максимального элемента массива
max_element := arr[1];
for i := 2 to 10 do
begin
if arr[i] > max_element then
max_element := arr[i];
end;

writeln('Максимальный элемент массива: ', max_element);

end.