ПОМОГИТЕ ПЖ ОЧЕНЬ НАДО!!!!!!!!!!!!!!!!!! Циклы с параметром. Задача 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;
write(maxi);
END.