Допишите программу: - поменяйте местами первый и последний столбики; Вот программа: Program JHK; const n=5; var ns, a:real; j, p, i, pr, nm:integer; d:array[1 ... n, 1 ... n]of real; m:array[1 ... n] of real; begin for i:=1 to 5 do begin for j:=1 to 5 do begin d[i, j]:=sin (i+j); write (d[i, j]:6:2); end; writeln; end;

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

begin

writeln ();

for j: = 1 to 5 do

begin

d[i, j]: = sin (i + j);

write (d[i, j] : 6 : 2)

end

end;

writeln;

for i: = 1 to 5 do

begin

writeln ();

for j: = 1 to 5 do

begin

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)

end

end

end.