Ввести натуральное n, n целых чисел. Найти максимальное число и его номер. Если чисел несколько, то номер последнего.

program zz1;

var a, b, n, i, max:integer; / / задаем переменные целого типа

begin

write (' введите натуральное n '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do / / организуем цикл на n повторений

begin

read (a); / / вводим очередное число

if a > = max then begin max: = a; b: = i; end; / / проверяем, если число больше максимального, то записываем его в максимальное и запоминаем номер

end;

write (' максимальное число = ', max, ' его номер = ', b); / / выводим ответ

end.