Const
 N=20;
Var
 A:Array[1..2*N] of real;
 R:Array[1..N] of Real;
 Rmin,Rmax:real;
 i:byte;
Begin
 Randomize;
 for i:=1 to 2*N do A[i]:=(Random-0.5)*40;
 for i:=1 to N do R[i]:=Sqrt(Sqr(A[2*i-1])+Sqr(A[2*i]));
 Rmax:=0;
 Rmin:=100;
 for i:=1 to N do
  begin
   if R[i]<Rmin then Rmin:=R[i];
   if R[i]>Rmax then Rmax:=R[i];
  end;
 Writeln('Rmin = ',Rmin:0:3,'        Rmax = ',Rmax:0:3);
 Readln
End.

Var
 A:Array[1..15] of Integer;
 i,Imax:byte;
 Max:Integer;
Begin
 Randomize;
 Max:=-16;
 for i:=1 to 15 do
  begin
   A[i]:=-15+Random(46);
   write(A[i]:4);
   if A[i]>Max then
    begin
     Max:=A[i];
     Imax:=i;
    end;
  end;
 writeln;
 writeln('Maximal is A[',Imax,'] = ',A[Imax]);
 Readln
End.

Var
 W:String;
 p,q:byte;
 Cp,Cq:Char;
Begin
 Repeat
  write('Enter the word: ');
  readln(W);
  write('p= ');
  readln(p);
  write('q= ');
  readln(q);
  if (p>Length(W)) or (q>Length(W)) or (p=q) then
   writeln('Incorrect!');
 Until (p<=Length(W)) and (q<=Length(W)) and (p<>q);
 Cp:=W[p];
 Cq:=W[q];
 Delete(W,p,1);
 Insert(Cq,W,p);
 Delete(W,q,1);
 Insert(Cp,W,q);
 writeln(W);
 Readln
End.

Const
 N=16;
Var
 A,B:Array[1..N] of Integer;
 i:byte;
Begin
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=-10+Random(20);
   B[i]:=Random(10)+1;
  end;
 Writeln('Before:');
 write('Array A:    ');
 for i:=1 to N do write(A[i]:4);
 writeln;
 write('Array B:    ');
 for i:=1 to N do write(B[i]:4);
 writeln;
 Writeln('After:');
 write('Array B:    ');
 for i:=1 to N do
  begin
   if A[i]<=0 then B[i]:=B[i]*10 else B[i]:=0;
   write(B[i]:4);
  end;
 Readln
End.