Циклы с параметром. Задача 3 Задана последовательность - вопрос №124991583 от alyagipsy 26.02.2020 06:20

Question

Информатика: Циклы с параметром. Задача 3 Задана последовательность из NN целых чисел. Необходимо найти порядковый номер числа с максимальным модулем. Если таких чисел несколько, вывести наибольший номер. Формат входных данных В первой строке входного файла записано число NN (1≤N≤1000)(1≤N≤1000). В следующий строке через пробел записаны NN целых чисел, по модулю не превосходящих 100000100000. Формат выходных данных В выходной файл вывести одно число — номер последнего из элементов с максимальным модулем. Примеры:

alyagipsy · Answer

Вот вариант на Паскале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....