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

[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

[Yurka]

всё работает,
VOLVO я вставил твой алгоритм

Код

Program nomer28;
  uses crt;
      Type
       mas=array [1..5,1..5] of real;
       mas1=array [1..5] of real;

     Procedure Matrix( var a:mas);
     var
     i,j,y:integer;

      Begin
       for i:=1 to 5 do
       begin
       for j:=1 to 5 do
        begin
           y:=i-j;
           a[i,j]:=exp((-i)*ln(2))*(j-4.3)+(5*i+sin(i*j))/(exp(y*ln(2.71)));
           write('a[',i,',',j,']=',a[i,j]:2:2,'   ');
         end;
         writeln;
       end;
      End;

   Procedure Vector(var a:mas; var x:mas1);
var
 i, j: integer;
 min: real;
begin
 for i:=1 to 5 do begin
   min:=a[i, 1];
   for j:=2 to 5 do
     if min>a[i,j] then min:=a[i,j];
   x[i]:=min;
 end;
 for i := 1 to 5 do
   writeln('x[',i,']=',x[i]:2:2);
end;

  Function G (x:mas1):real;
 var
        i,k:integer;
        S,d:real;
        Begin
        d:=1;
        S:=0;
        for i:=1 to 5 do
        begin
           begin
             for k:=1 to i do
             d:=d*(sqr(k)-x[k]);
           end;
          S:=S+d/(2.3*i+x[i]);
        end;
        G:=S;
        End;


         VAR
         b:mas;
         x1:mas1;
         i,j:integer;

         BEGIN
         clrscr;
         matrix(b);
         writeln;
         vector(b,x1);
         writeln;
         writeln('G=',G(x1):2:4);
         readkey;
         END.