Дан массив из 30 произвольных элементов, каждый из которых не больше 100. Найдите максимальный элемент кратный 9.

Const

N = 30;

Var

A:array[1 ... N] of byte;

i, Max:integer;

Begin

Max:=0;

For i: = 1 to N do

Begin

A[i]:=random (101) ;

if (A[i] mod 9 = 0) and (A[i] > Max) then Max:=A[i];

Write (A[i],' ') ;

End;

WriteLn;

if Max = 0 then WriteLn ('В массиве нет элементов, кратных 9')

else WriteLn ('Max = ', Max)

End.