Pascal. Задача 8-22

Целочисленный массив из 10 элементов вводит пользователь. Элементы массива могут принимают значения от 0 до 1000. Найти и вывести минимальное значение среди элементов массива, которые четные и делятся на 3.

Решение

const
  N = 10;
var
  i, min : integer;
  a : array[1..N] of integer;
begin
  for i := 1 to N do begin
    Write('Введите элемент массива ', i, ': ');
    Readln(a[i]);
  end;
  min := 10000;
  for i := 1 to N do begin
    if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) and (a[i] <> 0) and (a[i] < min) then
      min := a[i];
  end;
  Writeln('Значение удовлетворяющее условиям: ', min);
end.

◄▲►