новая папка 1 / новая

program Project1;


const
MinValue:Real=-5;
MaxValue:Real=5;

type
mass=array of Real;

function max(a:mass):Real;
var
res:Real;
i:integer;
begin
res:=a[0];
for i := 1 to Length(a)-1 do
if res<a[i] then
res:=a[i];
result:=res;
end;

function min(a:mass):Real;
var
res:Real;
i:integer;
begin
res:=a[0];
for i := 1 to Length(a)-1 do
if res>a[i] then
res:=a[i];
result:=res;
end;

procedure NewArr(var arr:mass; length:integer; str:string);
var
i:Integer;
begin
SetLength(arr, length);
for i := 0 to Length-1 do
begin
arr[i]:=Random*(MaxValue-MinValue)+MinValue;
Writeln(str,'[',i,']=',arr[i]:5:4);
end;
end;

var
x:mass;
y:mass;
res:Real;
begin

Randomize;
NewArr(x, 10, 'x');
Writeln;
NewArr(y, 15, 'y');
Writeln;
res:=((Exp(Abs(max(x)))-exp(Abs(max(y))))/sqrt(Abs(max(x)*min(x)))*sqrt(Abs(max(y)*min(y))));
Writeln(res:5:4);
Readln;
end.