?!!?!? есть ещё в таблице 5.вывод информации на экран D.end и 6.целый тип E.var

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.