program z16_72;
var a:array[1..100] of integer;
n,i,j,n_max,n_min,x:integer;
begin
write('Aaaaeoa n-eiee?anoai yeaiaioia ianneaa(n<100)');
readln(n);
writeln('aaaaeoa cia?aiea yeaiaioia ianneaa');
for i:=1 to n do begin
a[i]:=random(3);
write(a[i]:8);
end;
writeln;
n_max:=1;n_min:=1;
for i:=1 to n do
if a[i]for i:=n downto 1 do
if a[i]>a[n_max] then n_max:=i;
if n_max>n_min
then begin i:=n_min+1;
j:=n_max-1;
end
else begin i:=n_max+1;
j:=n_min-1;
end;
while ix:=a[i];a[i]:=a[j];a[j]:=x;
i:=i+1;j:=j-1;
end;
writeln(n_min:5,' ',n_max:5);
for i:=1 to n do
write(a[i],' ');
end.