asd / корзина / лекции по TP / Lecture_Pascal / graph / LAB6

uses crt;
const n=5; m=4;
 type stroka=array[1..m] of real;
      matr=array[1..5] of stroka;
  var a:matr;
  procedure form;
    var i,j:byte;
    begin
        for i:=1 to n do
           for j:=1 to m do if i<j then a[i,j]:=i*j-3*j
                                   else a[i,j]:=5*i/j+7*sin(i+j)
    end;
  procedure print(l:string);
       var i,j:byte;
    begin
        writeln(l);
        for i:=1 to n do begin
                         for j:=1 to m do write(' ',a[i,j]:4:1);
                         writeln
                         end
    end;
    var imax,i:byte;
        max:real;  d:stroka;
    begin
     clrscr;
     form;
     print('form matrix');
         max:=a[1,1];   imax:=1;
           for i:=2 to n do if max<a[i,1] then begin max:=a[i,1];
                                                     imax:=i
                                               end;
         d:=a[imax];  a[imax]:=a[1];  a[1]:=d;
     print('izmen matrix')
    end.