Вычислить произведение элементов массива, размещенных после максимального по модулю элемента - 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 - индекс максимального элемента

Объяснение кода листинга программы

  1. Программа запрашивает у пользователя ввод элементов массива a с помощью цикла for и функции readln.
  2. Затем программа находит индекс элемента с максимальным абсолютным значением с помощью цикла for и условного оператора if.
  3. Значение переменной k присваивается единице перед началом второго цикла.
  4. Если элемент a[i] больше элемента a[k], то значение переменной k присваивается i.
  5. В результате выполнения программы, в переменной k будет храниться индекс элемента с максимальным абсолютным значением.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы