Question

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

Answer 1

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.