Найти наименьшее из значений компонент с четными номерами - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Дан файл f, компоненты которого являются действительными числами. Найти: а) наименьшее из значений компонент с четными номерами; б) разность первой и последней компонент файла.
Не выводит результат "наименьшее из значений компонент с четными номерами" вроде все правильно, подскажите где ошибка?

Решение задачи: «Найти наименьшее из значений компонент с четными номерами»

textual
Листинг программы
  if i=2 then
    min:=n
  else
    if (odd(i) and (n<min)) then
      min:=n;

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

  1. Переменная i принимает значения от 1 до 20.
  2. Если i равно 2, то значение переменной min устанавливается равным значению переменной n.
  3. В противном случае, если i не равно 2 и n меньше текущего значения min, то значение переменной min устанавливается равным значению переменной n.
  4. Код не использует вложенные списки.
  5. Код выполняет поиск наименьшего из значений компонент с четными номерами.

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

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