- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы
Решение
{заголовок программы}
program DEMO_C2;
{раздел объявления модулей и сторонних расширений}
uses
{crt - Console Run Time. Данный модуль содержит специализированные
подпрограммы для обработки текста, звука, клавиатурных событий}
crt;
{раздел декларации констант}
const
{нетипизированная целочисленная константа,
отвечающая за количество элементов в массиве}
N = 20;
{раздел декларации переменных}
var
{одномерный массив, состоящий из 20 элементов целочисленного типа данных}
a : array[1..N] of integer;
{i - счетчик цикла
j - неиспользуемая переменная
min - хранит минимальное значение элемента в массиве удовлетворяющее условию}
i, j, min : integer;
{начало главного блока программы}
begin
{очистка экрана от прошлых выводов}
clrscr;
{заполнение массива пользовательскими целыми
числами вводом с клавиатуры из диапазона [-1000 ... 1000]}
for i := 1 to N do
read(a[i]);
{инициализируем искомое значение максимально возможным, чтобы
при первом удачном поиске произвести реинициализацию}
min := 1000;
{циклически просматриваем все элементы массива начиная с самого первого}
for i := 1 to N do
{если значение текущего элемента четное и ОДНОВРЕМЕННО с этим не кратно
трем и ОДНОВРЕМЕННО с этим меньше минимального элемента среди проверенных,
то присваиваем в переменную min новое найденное минимальное значение}
if((a[i] mod 2 = 0) and (a[i] mod 3 <> 0) and (a[i] < min)) then
min := a[i];
{вставка пустой строки для повышения читабельности}
writeln;
{выводим на экран пользователя найденное значение}
writeln(min);
{имитация задержки работы программы до тех пор, пока пользователь
не нажмет произвольную клавишу на клавиатуре}
readkey;
{финализирующий оператор программы}
end.
program DEMO_C2;
{раздел объявления модулей и сторонних расширений}
uses
{crt - Console Run Time. Данный модуль содержит специализированные
подпрограммы для обработки текста, звука, клавиатурных событий}
crt;
{раздел декларации констант}
const
{нетипизированная целочисленная константа,
отвечающая за количество элементов в массиве}
N = 20;
{раздел декларации переменных}
var
{одномерный массив, состоящий из 20 элементов целочисленного типа данных}
a : array[1..N] of integer;
{i - счетчик цикла
j - неиспользуемая переменная
min - хранит минимальное значение элемента в массиве удовлетворяющее условию}
i, j, min : integer;
{начало главного блока программы}
begin
{очистка экрана от прошлых выводов}
clrscr;
{заполнение массива пользовательскими целыми
числами вводом с клавиатуры из диапазона [-1000 ... 1000]}
for i := 1 to N do
read(a[i]);
{инициализируем искомое значение максимально возможным, чтобы
при первом удачном поиске произвести реинициализацию}
min := 1000;
{циклически просматриваем все элементы массива начиная с самого первого}
for i := 1 to N do
{если значение текущего элемента четное и ОДНОВРЕМЕННО с этим не кратно
трем и ОДНОВРЕМЕННО с этим меньше минимального элемента среди проверенных,
то присваиваем в переменную min новое найденное минимальное значение}
if((a[i] mod 2 = 0) and (a[i] mod 3 <> 0) and (a[i] < min)) then
min := a[i];
{вставка пустой строки для повышения читабельности}
writeln;
{выводим на экран пользователя найденное значение}
writeln(min);
{имитация задержки работы программы до тех пор, пока пользователь
не нажмет произвольную клавишу на клавиатуре}
readkey;
{финализирующий оператор программы}
end.
- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы