Const
 Nmax=99;
Var
 N,i,j,k,q1,q2:integer;
 D:real;
 A:Array[1..Nmax] of real;
Begin
 Write('Number of elements = ');
 Readln(N);
 Writeln('Input: 0 - keyboard');
 Writeln('       1 - random');
 Readln(k);
 If k=0 then
  begin
   for i:=1 to N do
    begin
     write('A[',i:2,']= ');
     readln(A[i]);
    end;
  end
 else
  begin
   Randomize;
   for i:=1 to N do A[i]:=Random*100-10.0;
  end;
 writeln;
 writeln;
 for i:=1 to N do write(A[i]:8:3);
 writeln;
 writeln;
 D:=0;
 for i:=1 to N-1 do
  for j:=i+1 to N do
   if Abs(A[i]-A[j])>D then
    begin
     D:=Abs(A[i]-A[j]);
     q1:=i;
     q2:=j;
    end;
 Writeln('Dmax = ',D:0:3);
 Writeln('A[',q1:2,'] = ',A[q1]:0:3);
 Writeln('A[',q2:2,'] = ',A[q2]:0:3);
 Readln
End.