В одномерном массиве найти наибольшее отрицательное значение среди элементов с нечётными индексами - Free Pascal
Формулировка задачи:
Помогите с задачей, благодарен заранее:
Одномерному массиву вычислить его значение и индекс, у которого не парный индекс и который высокий негативный.
Решение задачи: «В одномерном массиве найти наибольшее отрицательное значение среди элементов с нечётными индексами»
textual
Листинг программы
maxM:=1;
For i:=3 to N do
If Odd(i) and (m[i]<0) then If m[i]>m[maxM] then maxM:=i;
Writeln('Index: ',maxM,' element: ',m[maxM]);
Объяснение кода листинга программы
- Переменная
maxMинициализируется значением 1. - Происходит цикл от 3 до N.
- Для каждого нечетного индекса i проверяется условие:
- Если i нечетное число и элемент m[i] отрицательный, то проверяется условие:
- Если m[i] больше текущего максимального отрицательного значения, то обновляется значение переменной
maxM.
- Если m[i] больше текущего максимального отрицательного значения, то обновляется значение переменной
- Если i нечетное число и элемент m[i] отрицательный, то проверяется условие:
- Выводится сообщение с индексом и значением максимального отрицательного элемента.