Задача 7. Найти первый и последний элементы массива, кратные числу 3. Пример: массив 7 2...

Question

Задача 7. Найти первый и последний элементы массива, кратные
числу 3.
Пример: массив 7 2 6 5 4 4 10 3 9
элементы, кратные 3 6 39
первый и последний из них 6 9

Answer 1

Var
  a: array of byte := (7, 2, 6, 5, 4, 4, 10, 3, 9);
  min, max: byte;

begin
  write('Кратные трём: ');
  foreach i: byte in a do
    if (i mod 3 = 0) then
    begin
      write(i, ' ');
      if (min = 0) then
        min := i
      else
        max := i;
    end;
    if (max = 0) then
      max := min;
    writeln();
    writeln(min, ' ', max);
end.