Михаил
Елена Коннова
x:=a;
for i:=0 to 100 do
if a>x then x:=a;
ID
Irina Dimkova
max:=a [ 1 ];
for i := 2 to n do
if (i mod 2 = 0) then
if ( a [ i ] > max then max:=a [ i ];
Похожие вопросы