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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.