Question

поменять местами k-й и l-й столбцы данного массива А(m,n)

нужна программа на паскале. помогите пожалуйста)

Answer 1

constnMax = 10;
var  a:array [1..nMax] of integer; 
buf :integer;
begin 
readln(k, l); 
for i := 1 to m do   begin   
buf := a[i, k];   
a[i, k] := a[i, l];   
a[i, l] := buf; 
 end;  
end.

Answer 2

И два
const
nMax = 10;
var
a:array [1..nMax,1..nMax] of integer;
i :integer;
begin
readln(k, l);
for i := 1 to nMax do
begin
a[i, k] := a[i, k] + a[i, l];
a[i, l] := a[i, k] - a[i, l];
a[i, k] := a[i, k] - a[i, l];
end;
end.

Answer 3

спасибо)