Использование подпрограмм при программировании на языке Паскаль

[Rustam2503]

Использование подпрограмм при программировании на языке Паскаль

Заданы три массива: x={x1, x2, x3, x4}, y={y1, y2, y3} и z={z1, z2, z3, z4, z5}. Упорядочить по возрастанию три числа a, b и c, где а - минимальный элемент массива x, b - минимальный элемент массива y, а с- минимальный элемент массива z.
Поиск минимального элемента массива оформить в виде подпрограммы типа FUNCTION.
Исходные данные: x={4,2; 3; 7; 3,6}; y={5,6; 3; 2}; z={1; 2; 3; 4; 5}

 

[poiu]

да поправит меня уважаемый Владимир, если что не так.

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 < min then min:= x;
end;
result:= min;
end;

function minY: real;
begin
min:= y[1];
for i:= 2 to length do
begin
if y < min then min:= y;
end;
result:= min;
end;

function minZ(): real;
begin
min:= z[1];
for i:= 2 to length(z) do
begin
if z < min then min:= z;
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: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:4:1);
writeln;
readln;
end.