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.