Вычислить произведение элементов массива, размещенных после максимального по модулю элемента - PascalABC.NET
Формулировка задачи:
в одномерном массиве, который состоит из n действительных элементов, вычислить произведение элементов, размещенных после максимального по модулю элемента.
выводит неправильный результат или "невозможно вычислить"
Решение задачи: «Вычислить произведение элементов массива, размещенных после максимального по модулю элемента»
textual
Листинг программы
for i:=1 to x do begin writeln('Введите a[',i,']:'); readln(a[i]); end; k:=1; for i:=1 to x do begin if a[i]>a[k] then k:=i; end; // теперь в k - индекс максимального элемента
Объяснение кода листинга программы
- Программа запрашивает у пользователя ввод элементов массива
a
с помощью цикла for и функции readln. - Затем программа находит индекс элемента с максимальным абсолютным значением с помощью цикла for и условного оператора if.
- Значение переменной
k
присваивается единице перед началом второго цикла. - Если элемент
a[i]
больше элементаa[k]
, то значение переменнойk
присваиваетсяi
. - В результате выполнения программы, в переменной
k
будет храниться индекс элемента с максимальным абсолютным значением.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д