Pascal abc. Дан одномерный массив из n действительных чисел. Найти номер последнего максимального элемента.

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

program LastMaxElementIndex;

var
arr: array of Real;
n, i, maxIndex: Integer;
maxElement: Real;

begin
Write('Введите количество элементов массива: ');
ReadLn(n);

SetLength(arr, n);

for i := 0 to n - 1 do
begin
Write('Введите элемент массива ', i, ': ');
ReadLn(arr[i]);
end;

maxElement := arr[0];
maxIndex := 0;

for i := 1 to n - 1 do
begin
if arr[i] >= maxElement then
begin
maxElement := arr[i];
maxIndex := i;
end;
end;

WriteLn('Номер последнего максимального элемента: ', maxIndex);

end.