Паскаль. Задан целочисленный массив из 5 чисел. Числа вводим с клавиатуры. Найти максимальный элемент. Стоит ли он на последнем месте в массиве.

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

program MaxElement;

var
arr: array[1..5] of integer;
i, maxElement, maxIndex: integer;

begin
// Ввод массива с клавиатуры
for i := 1 to 5 do
begin
write('Введите число ', i, ': ');
readln(arr[i]);
end;

// Находим максимальный элемент
maxElement := arr[1];
maxIndex := 1;
for i := 2 to 5 do
begin
if arr[i] > maxElement then
begin
maxElement := arr[i];
maxIndex := i;
end;
end;

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

// Проверяем, стоит ли максимальный элемент на последнем месте
if maxIndex = 5 then
writeln('Максимальный элемент стоит на последнем месте в массиве.')
else
writeln('Максимальный элемент не стоит на последнем месте в массиве.');
end.