В матрице 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;

begin

min:=100;

write ('Введите размер матрицы n') ; Readln (n) ;

for i:=1 to n do begin

for j:=1 to n do begin

A[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 begin

z[j]:=A[i, j]; write (z[j]:9:4) ; end;

for i:=1 to n do begin

for j:=2 to n do begin

if z[j-1]> z[j] then begin

t:=z[j-1]; z[j-1]:=z[j]; z[j]:=t

end; end; end;

writeln;

i:=s;

for j:=1 to n do begin

A[i, j]:=z[j]; write (z[j]:9:4) ; end;

writeln; writeln;

for i:=1 to n do begin

for j:=1 to n do begin

B[i, j]: = A[i, j]; write (B[i, j]:9:4) ; end;

writeln; end;

writeln; write ('min = ', min:9:4, ' I = ', s) ;

end.