я написал процедуру, но метод по моему ужасный.
А упростить чё то не выходит...
вообщем вот эта процедура
Procedure Vector(var a:mas; var x:mas1);
var
i,j,k,y,z:integer;
min1,min2,min3,min4,min5:real;
Begin
min1:=a[1,1];
for j:=1 to 5 do
begin
if (min1>a[1,j]) then min1:=a[1,j];
x[1]:=min1;
end;
min2:=a[2,1];
for j:=1 to 5 do
begin
if min2>a[2,j] then min2:=a[2,j];
x[2]:=min2;
end;
min3:=a[3,1];
for j:=1 to 5 do
begin
if min3>a[3,j] then min3:=a[3,j];
x[3]:=min3;
end;
min4:=a[4,1];
for j:=1 to 5 do
begin
if min4>a[4,j] then min4:=a[4,j];
x[4]:=min4;
end;
min5:=a[5,1];
for j:=1 to 5 do
begin
if min5>a[5,j] then min5:=a[5,j];
x[5]:=min5;
end;
for k:=1 to 5 do
writeln('x[',k,']=',x[k]);
End;
и её нужно упростить...
Сообщение отредактировано: volvo -