Question

ПОМОГИТЕ ПЖ ОЧЕНЬ НАДО!!!!!!!!!!!!!!!!!!
Циклы с параметром. Задача 3
Задана последовательность из NN целых чисел. Необходимо найти порядковый номер числа с максимальным модулем. Если таких чисел несколько, вывести наибольший номер.
Формат входных данных
В первой строке входного файла записано число NN (1≤N≤1000)(1≤N≤1000). В следующий строке через пробел записаны NN целых чисел, по модулю не превосходящих 100000100000.
Формат выходных данных
В выходной файл вывести одно число — номер последнего из элементов с максимальным модулем.
Примеры:
Вход
5
1 -2 -8 0 8
Выход
5

Answer 1

Вот вариант на Паскале

var a, nn, i, max, maxi : integer;

BEGIN

read(nn); max := 0; maxi := 0;

for i := 1 to nn do begin

 read(a);

 if abs(a) >= abs(max) then begin

  max := a; maxi := i;

 end;

end;

write(maxi);

END.