В матрице A найти строку с наименьшим элементом и упорядочить элементы этой строки по возрастанию.Результат записать в матрицу Б. Элементы матрицы А
вычисляется по формуле a_{ij} =sinj(1-sini),где i,j=1,2...10.Pascal.Через процедуры

const nx=20;var i,j,n,s:integer; A,B:array[1..nx,1..nx] of real;min,t:real;z:array[1..nx] of real;beginmin:=100;write('Введите размер матрицы n');Readln(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:= sin(j)*(1-sin(i));write(A[i,j]:9:4);if min > A[i,j] then begin min:= A[i,j];s:=i;end;end;writeln;end;writeln;i:=s;for j:=1 to n do beginz[j]:=A[i,j];write(z[j]:9:4);end;for i:=1 to n do beginfor j:=2 to n do beginif z[j-1]> z[j] then begint:=z[j-1];z[j-1]:=z[j];z[j]:=tend;end;end;writeln;i:=s;for j:=1 to n do beginA[i,j]:=z[j];write(z[j]:9:4);end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginB[i,j]:= A[i,j];write(B[i,j]:9:4);end;writeln;end;writeln;write('min = ',min:9:4, '   I = ', s);end.