Дана последовательность из n целыхчисел

Question

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

Batmanik · Accepted Answer

Nmax: =1; max: =a [ 1 ]; for i: =2 to n do if a [ i ] > max then begin max: =a [ i ]; nmax: =i end;