да поправит меня уважаемый Владимир, если что не так.
const
x: array [1..4] of real = (4.2, 3, 7, 3.6);
y: array [1..3] of real = (5.6, 3, 2);
z: array [1..5] of real = (1, 2, 3, 4, 5);
var
mas_min: array[1..3] of real;
i, j: byte;
min: real;
function minX: real;
begin
min:= x[1];
for i:= 2 to length(x) do
begin
if x[i] < min then min:= x[i];
end;
result:= min;
end;
function minY: real;
begin
min:= y[1];
for i:= 2 to length(y) do
begin
if y[i] < min then min:= y[i];
end;
result:= min;
end;
function minZ(): real;
begin
min:= z[1];
for i:= 2 to length(z) do
begin
if z[i] < min then min:= z[i];
end;
result:= min;
end;
begin
mas_min[1]:= minX;
mas_min[2]:= minY;
mas_min[3]:= minZ;
writeln('Min zna4eniya:');
for i:= 1 to 3 do write(mas_min[i]:4:1);
writeln;
// puzirek sort
for i:= 1 to 2 do
for j:= 1 to 2 do
if mas_min[j] > mas_min[j+1] then
begin
min:= mas_min[j];
mas_min[j]:= mas_min[j+1];
mas_min[j+1]:= min;
end;
writeln('Min zna4eniya sorted:');
for i:= 1 to 3 do write(mas_min[i]:4:1);
writeln;
readln;
end.