Курсовая работа: Техническое задание на создание автоматизированных систем

min:=a[i,j];

k:=i;

l:=j;

end;

end;

writeln;

if k<n then

begin

for j:=1 to n do

begin

{smena strok}

c:=a[k,j];

a[k,j]:=a[n,j];

a[n,j]:=c;

end;

end;

if l>1 then

begin

for i:=1 to n do

begin

{smena stolbcov}

c:=a[i,l];

a[i,l]:=a[i,1];

a[i,1]:=c;

end;

end;

{Vivod konechnoj matrici}

writeln;

writeln('Конечнаяматрица:');