uses crt;
const
 N_Max= 100;
type Mass=Array[1..N_Max] of Real;

Procedure Array_Vvod_RND(ax,bx:real; Var X:mass; size:integer);
var i:integer;
Begin
 randomize;
 For i:=1 to size do
 X[i]:=ax+(bx-ax)*Random;
End;

Function Maximum(X:mass; size:integer):real;
var i:integer;
 Sum,xmax :real;
Begin
 Xmax:=x[1];
 For i:=2 to size do
 begin
  if X[i]>Xmax then
   Xmax:=x[i];
   Maximum:=Xmax;
End;
writeln;
  write('   Max elem massiva A= ',Xmax:10:3);
  readkey;
end;


Procedure Array_Vivod(X:mass; size:integer; Name:Char);
var i:integer;
Begin
 Writeln(#10#13,#10#13,Name:2,':',#10#13,'---',#10#13);
 For i:=1 to size do
 Begin
  if wherex>60 then writeln;
  write(' ',X[i]:8:3);
 End;
End;

var  A,B,C,D :Mass;
 na,nb,nc,nd :integer;

begin
clrscr;
begin
writeln(#10#13'Enter razmernosti massiba:');
 write(' dlya A>');readln(na);
Array_Vvod_Rnd(-50,50,A,na);
Array_Vivod(A,nA,'A');
Maximum(A,nA);
end;
end.