Составьте программу на Паскале, которая находит наименьшее из чисел, кратных 3. Количество чисел не меньше 1000.

Ниже — простой вариант на Паскале (совместим с FreePascal/Turbo Pascal). Программа читает количество чисел N (по условию N ≥ 1000), затем сами числа, и выводит наименьшее среди тех, что кратны 3. Если среди введённых чисел нет ни одного, кратного 3, выводится сообщение NO.

pascal
Копировать код
program MinDivBy3;
var
  N, i: LongInt;
  x, minDiv3: LongInt;
  found: Boolean;
begin
  { читаем количество чисел }
  readln(N);
  { по условию N не меньше 1000; при желании можно проверять }
  { if N < 1000 then begin writeln('N must be >= 1000'); halt(0); end; }
  found := False;
  { minDiv3 можно не инициализировать произвольным большим значением —
    будем обновлять его только когда найдём кратное 3 }
  for i := 1 to N do
  begin
    read(x);
    if x mod 3 = 0 then
    begin
      if (not found) or (x < minDiv3) then
      begin
        minDiv3 := x;
        found := True;
      end;
    end;
  end;
  if found then
    writeln(minDiv3)
  else
    writeln('NO');
end.

Как это работает:

1. Одним проходом читаем все числа.

2. Для каждого проверяем признак кратности x mod 3 = 0.

3. Держим флаг found, чтобы корректно обработать ситуацию, когда кратных 3 нет вовсе.

4. Сложность по времени O(N), по памяти O(1) — хранится только текущий минимум.