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

Question

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

Comments

помогите :((((((((

---

Паскаль, Бейсик? Си?

---

паскаль

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.