Задача 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.