program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;
var
  X: array of double;
  Count: integer;
  Range: integer;
  MNorma: double;
  i: integer;
begin
  Randomize;
  write(' Enter the number of numbers in the vector: '); Readln(Count);
  write(' Enter range 0 - '); Readln(Range);
  SetLength(X, Count);
  MNorma:= 0;
  for i:= 0 to high(X) do
    X[i]:= Random*Randomrange(0,Range);

  for i:= 0 to high(X) do
    MNorma:= max(MNorma, X[i]);

  Write(' X: ');
  for i:= 0 to high(X) do
    write(X[i]:3:3,' ');
  Writeln;
  Writeln(' m-Norma: ', MNorma:3:3);
  Readln;
end.