Const
nm = 50;{максимальная длина массива}
var
i, n, max, p: integer;
a: array[1..nm] of integer;
begin
Write('Введите количество элементов в массиве: ');
Readln(n);
max := -32768;
Write('Введите элементы массива через пробел ');
for i := 1 to n do
begin
Read(a[i]);
if max <= a[i] then<br> begin
max := a[i]; p := i
end
end;
Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.
Тестовое решение:
Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7