Переставить 3 и 5 столбец и 3 и 5 строку в массиве правильно написала но выходит ошибка program mas55; const n=5; type st=array[1..n] of real; var i,j,d: integer; b: st; a: array[1..n] of st; begin for i: =1 to n do for j: =1 to n do if j=3 then a[i,j]: =sqr(i)*j else a[i,j]: =2; for i: =1 to n do begin for j: =1 to n do write (a[i,j]: 6); writeln end; writeln; b: =a[3]; a[3]: =a[4]; a[4]: =b; for i: =1 to n do begin for j: =1 to n do write (a[i,j]: 6); writeln; for i: =1 to n do begin d: =a[i,3]; a[i,3]: =a[i,5]; a[i,5]: =d end; for i: =1 to n do begin for j: =1 to n do write (a[i,j]: 6); writeln end; writeln end end.
