Лабы / Pascal.1.курс / part 1 / вариант 22 / lab6

program mas;
uses crt;
var
   a: array [1..5,1..5] of real;
   m: array [1..5] of real;
   b,c:real;
   i,j,k,l,f:integer;
begin
   clrscr;
   randomize;
{------------------[‡ Ї®«­пҐ¬ ¬ ваЁжг б«гз ©­л¬Ё зЁб« ¬Ё]--------------------}
   writeln('€б室­ п ¬ ваЁж ');
   for i:=1 to 5 do begin
      for j:=1 to 5 do begin
         repeat b:=random(100) until b<>0;
         repeat
           c:=-5+random(10)+random(100)/b;
           f:=0;
           for k:=1 to i do begin
              for l:=1 to 5 do begin
                if (k=i) and (l=j) then break;
                if (a[k,l]=c) then f:=1;
              end;
           end;
         until f=0;
         a[i,j]:=c;
         write(a[i,j]:4:1,'  ');
      end;
      writeln;
   end;
   writeln;
{----------------------------[Џ®ЁбЄ Ё § ¬Ґ­ ]--------------------------------}
   b:=a[1,1];
   for i:=2 to 5 do begin
     if a[i,i] > b then begin
        b:=a[i,i];
        k:=i;
     end;
   end;
   a[k,k]:=a[1,1];
   a[1,1]:=b;

   writeln('€§¬Ґ­Ґ­­ п ¬ ваЁж ');
   for i:=1 to 5 do begin
     for j:=1 to 5 do write(a[i,j]:4:1,'  ');
     writeln;
   end;
   writeln;
{-----------------[Џ®ЁбЄ ¬Ё­Ё¬ «м­ле н«Ґ¬Ґ­в®ў ў бв®«Ўж е]-------------------}
   writeln('ЊЁ­Ё¬ «м­лҐ н«Ґ¬Ґ­вл ў бв®«Ўж е');
   for i:=1 to 5 do begin
     b:=a[1,i];
     for j:=2 to 5 do begin
        if a[j,i]<b then b:=a[j,i];
     end;
     m[i]:=b; write(b:4:1,'  ');
   end;
end.