Допишите программу: -поменяйте местами первый и последний столбики; Вот программа: Program JHK; const n=5; var ns,a:real;j,p,i,pr,nm:integer;d:array[1..n,1..n]of

program JHK;const n = 5; var j, i: integer;d: array[1..n, 1..n] of real; m: array[1..n, 1..n] of real; begin for i:= 1 to 5 do beginwriteln();for j:= 1 to 5 dobegin d[i, j]:= sin(i + j); write(d[i, j] : 6 : 2)endend;writeln; for i:= 1 to 5 do beginwriteln();for j:= 1 to 5 dobegin if j = 1 then m[i, 1]:= d[i, 5] else if j = 5 then m[i, 5]:= d[i, 1] else m[i, j]:= d[i, j]; write(m[i, j] : 6 : 2)endendend.