var
 a: array [1..100] of integer;
 b:array[1..50] of integer;
 num:array[1..50] of byte;
 i,max,N,Imax,j,Npos,D: integer;
 bo:boolean;

begin
 randomize;
 write('N (<=100)= ');
 readln(N);
 for i:= 1 to n do
  a[i]:=-25+random(101);
 writeln('Initial array: ');
 for i:=1 to N do write(a[i]:4);
 writeln;
 max:=-80;
 Imax:=2;
 for i:=2 to N-1 do
  if (a[i]>max) and
     not((a[i]>a[i+1]) and (a[i]>a[i-1])) and
     not((a[i]<a[i+1]) and (a[i]<a[i-1])) then
     begin
      Imax:=i;
      max:=a[i];
     end;
 writeln('Result: ');
 if max=-80 then writeln('No such elements')
 else writeln('i= ',Imax,'     Max= ',max);
 writeln;
 Npos:=0;
 for i:=(N div 2)+1 to N do
  if a[i]>0 then
   begin
    Inc(Npos);
    b[Npos]:=a[i];
    num[Npos]:=i;
   end;
 for i:=1 to Npos-1 do
  for j:=1 to Npos-i do
   if Abs(1/b[j])<Abs(1/b[j+1]) then
    begin
     D:=b[j];
     b[j]:=b[j+1];
     b[j+1]:=D;
    end;
 for i:=1 to N do
  begin
   bo:=false;
   j:=0;
   repeat
    Inc(j);
    if num[j]=i then bo:=true;
   until bo or (j=Npos);
   if bo then write(b[j]:4) else write(a[i]:4);
  end;
 readln
end.