Найти наименьший четный элемент массива - Pascal ABC
Формулировка задачи:
Найдите наименьший четный элемент массива. Если такого нет, то выведите первый элемент. И посчитайте сумму нечетных элементов массива.
Решение задачи: «Найти наименьший четный элемент массива»
textual
Листинг программы
const n = 10; var a: array [1..n] of integer; i, j, min, rmax: integer; begin randomize; rmax := 11; min := rmax; for i := 1 to n do begin a[i] := random(rmax); write(a[i], ' '); if (a[i] mod 2 = 0) and (a[i] < min) then min := a[i]; end; writeln; writeln('Min = ', min); end.
Объяснение кода листинга программы
- Объявляются константы и переменные:
- n = 10 - размер массива
- a = array [1..n] of integer - массив целых чисел
- i, j, min, rmax = integer - вспомогательные переменные для цикла и поиска минимума
- Задается начальное значение для min и rmax
- min = rmax = 11 - максимальное значение для случайной генерации чисел
- Происходит заполнение массива случайными четными числами:
- for i := 1 to n do - цикл по индексам массива
- a[i] := random(rmax) - генерация случайного числа для элемента массива
- write(a[i], ' ') - вывод элемента массива с пробелом после него
- if (a[i] mod 2 = 0) and (a[i] < min) then min := a[i] - проверка на четность и обновление минимума
- Завершается заполнение массива и выводится на экран:
- writeln; - переход на новую строку
- writeln('Min = ', min); - вывод значения min
- Код завершается
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д