program m2;
const
n = 10;
var
A: array[1..n] of real;
m: real;
i: integer;
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
begin
randomize;
{fill A}
for i:=1 to n do
begin
A[i]:=random(2000)/100;
write(A[i]:2:2, ' ');
end;
writeln;
{find Max}
m:=max(A[1], A[n]);
for i:=1 to n-1 do
begin
m:=max(m, A[i]*A[i+1]);
end;
Writeln;
WriteLn('Max(...) = ', m:2:2);
{exchange}
m:=A[1];
A[1]:=A[n];
A[n]:=m;
{print A}
for i:=1 to n do
begin
write(A[i]:2:2, ' ');
end;
writeln;
readln;
end.
|
