Паскаль. Задан целочисленный массив из 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);
writeln('Индекс максимального элемента: ', maxIndex);

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

end.