Задача Паскаль. Создать массив который заполняется рандомными числами потом найти максимально и минимальное число,и максимальное число кратное трём

Задача понятна. Нужно: создать массив, заполнить его случайными числами, найти минимальное и максимальное значение в массиве, а также максимальное число, кратное трём. Подход и объяснение (для 9 класса, цель "Понять"): - Определяем размер массива N и диапазон случайных значений. - Заполняем массив случайными числами с помощью Randomize и Random. - Проходим по массиву один раз и одновременно: - обновляем минимальное значение (minVal), - обновляем максимальное значение (maxVal), - отслеживаем максимум среди чисел, кратных трём (maxDiv3) и флажок hasDiv3, чтобы узнать есть ли такие элементы. - Выводим результат. Если в массиве нет элементов, кратных 3, сообщаем об этом. Пример кода на Pascal (Free Pascal/Turbo Pascal): program TaskPascal; uses crt; const N = 20; // размер массива var a: array[1..N] of Integer; i: Integer; minVal, maxVal: Integer; maxDiv3: Integer; hasDiv3: Boolean; begin Randomize; // инициализация случайности // 1) Заполнение массива случайными числами (пример: -50..50) for i := 1 to N do a[i] := Random(101) - 50; // 2) Инициализация для поиска min, max и max, кратного 3 minVal := a[1]; maxVal := a[1]; maxDiv3 := 0; hasDiv3 := False; // 3) Одним проходом по всем элементам обновляем min, max и maxDiv3 for i := 1 to N do begin if a[i] < minVal then minVal := a[i]; if a[i] > maxVal then maxVal := a[i]; if (a[i] mod 3 = 0) then begin if (not hasDiv3) or (a[i] > maxDiv3) then begin maxDiv3 := a[i]; hasDiv3 := True; end; end; end; // 4) Вывод результатов writeln('Массив:'); for i := 1 to N do writeln(i, ': ', a[i]); writeln('Минимальное: ', minVal); writeln('Максимальное: ', maxVal); if hasDiv3 then writeln('Максимальное число, кратное 3: ', maxDiv3) else writeln('Нет элементов, кратных 3'); end. Пояснения по ключевым моментам: - Randomize ставим один раз в начале, чтобы получить разные последовательности чисел при каждом запуске. - Random(101) возвращает числа от 0 до 100; вычитаем 50, чтобы получить диапазон -50..50. - maxDiv3 хранит максимальное значение среди элементов, кратных 3. hasDiv3 сообщает, встречался ли такой элемент хотя бы один раз. - Если в массиве нет элементов, кратных 3, программа выводит соответствующее сообщение. Если хочешь изменить размер массива или диапазон значений, просто поправь константу N и выражение для заполнения a[i]. Например, чтобы использовать диапазон 0..99, можно писать a[i] := Random(100); Чтобы диапазон -100..100, можно a[i] := Random(201) - 100.