В заданном массиве из N элементов найти наименьший среди элементов кратных трем - Pascal ABC
Формулировка задачи:
В заданном массиве из N элементов найти наименьший среди элементов кратных трем, расположенных до первого отрицательного.
Решение задачи: «В заданном массиве из N элементов найти наименьший среди элементов кратных трем»
textual
Листинг программы
{В заданном массиве из N элементов найти наименьший среди элементов кратных трем, расположенных до первого отрицательного. } const n = 50; var a: array [1..n] of integer; k3, min, fn, i: integer; begin randomize; for i := 1 to n do begin a[i] := random(-100, 100); write(a[i]:4); end; fn := 0; for i := 1 to n do if a[i] < 0 then begin fn := i; break; end; writeln; k3 := 0; for i := 1 to fn - 1 do if (a[i] mod 3 = 0) then begin k3 := i; break; end; if k3 = 0 then begin writeln('Нет чисел, кратных 3.'); exit; end else min := a[k3]; for i := k3 to fn - 1 do if (a[i] < min) and (a[i] mod 3 = 0) then min := a[i]; writeln('Минимум: ', min); end.
Объяснение кода листинга программы
- Создается переменная n, которая будет хранить количество элементов в массиве.
- Создается массив a, который будет хранить N элементов.
- Создаются три переменные: k3, min и fn. Переменная k3 будет хранить индекс первого элемента, кратного трем, min - минимальное значение из найденных элементов, а fn - индекс первого отрицательного элемента.
- Запускается цикл, в котором генерируются случайные числа от -100 до 100 для каждого элемента массива a.
- Внутри цикла проверяется, является ли текущий элемент отрицательным. Если да, то его индекс записывается в переменную fn, и цикл прерывается.
- После завершения внутреннего цикла вычисляется значение k3. Если ни один элемент не был найден, то выводится сообщение
Нет чисел, кратных 3.
и программа завершается. - Если был найден хотя бы один элемент, кратный трем, то его значение присваивается переменной min, и цикл прерывается.
- Выводится сообщение
Минимум:
, и значение переменной min.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д