⇢ Же
Женя
Ал
Алмаз
max:=a[1]; nmax:=1;
for i:=2 to n do
if a[ i ] > max then begin
max:=a [ i ] ; nmax:=i end;
max:=a[1]; nmax:=1;
for i:=2 to n do
if a[ i ] > max then begin
max:=a [ i ] ; nmax:=i end;