Циклы с параметром. Задача 3
Задана последовательность из NN целых чисел. Необходимо найти порядковый номер числа с максимальным модулем. Если таких чисел несколько, вывести наибольший номер.
Формат входных данных
В первой строке входного файла записано число NN (1≤N≤1000)(1≤N≤1000). В следующий строке через пробел записаны NN целых чисел, по модулю не превосходящих 100000100000.
Формат выходных данных
В выходной файл вывести одно число — номер последнего из элементов с максимальным модулем.
Примеры:
Вход
5
1 -2 -8 0 8
Выход
5
Вот вариант на Паскале
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.