program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Math;
  var
  arr: array of Integer;
  i,max,b,c: Integer;
  o: Real;
begin
  Randomize;
  SetLength(arr, 15);
  for i:= 1 to 15 do
  begin
    arr[i]:= RandomRange(-5, 20);
    Writeln('Элемент ',i, ' = ', arr[i]);
  end;
  max:=arr[1];
  for i:= 1 to 15 do
  begin
    if(arr[i] > max) then max:= arr[i];
  end;
  Writeln('Максимальный - ', max);
  for i:= 1 to 15 do
  begin
    o:= arr[i] / max;
    Writeln('Новый элемент ',i, ' = ', o);
  end;
  Readln;
end.