Власиевич
4 год назад
Пожалуйста посчитайте ПЖ ОЧЕНЬ НАДО!!!!!!!!!!!!!!!!!!Циклы с параметром. Задание 3Задана последовательность из NN целых чисел. Необходимо найти порядковый номер числа с максимальным модулем. Если таких чисел неКак узнать сколько, вывести наибольший номер.Формат входных данныхВ первой строке входного файла записано число NN (1≤N≤1000)(1≤N≤1000). В следующий строке через пробел записаны NN целых чисел, по модулю не превосходящих 100000100000.Формат выходных данныхВ выходной файл вывести одно число — номер последнего из элементов с максимальным модулем.Примеры:Вход51 -2 -8 0 8Выход5
ОТВЕТЫ
Теодора
Oct 24, 2020
Вот вариант на Паскале
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.
735
Смежные вопросы:
