минимальные елементы строк матрицы Опции

[Yurka]

мне нужно найти минимальные елементы строк матрицы
я написал процедуру, но метод по моему ужасный.
А упростить чё то не выходит...
вообщем вот эта процедура

 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 - 8.12.2005 11:42

[FreeMan]

Procedure Vector(var a:mas; var x:mas1);
      var
      i,j:integer;
      

      Begin
         for i:=1 to 5 do x[i]:=a[i,1];
for i:=1 to 5 do for j:=1 to 5 do if a[i,j]<x[i] then x[i]:=a[i,j];
                   for i:=1 to 5 do
          writeln('x[',i,']=',x[i]);

      End;

М

FreeMan, она не откомпилируется... Altair

Не заметил к сразу.