дан двумерный массив и натуральные числа k и p,поменять местами элементы k и p столбцов массива

[np9Huk]

Дан двумерный массив и натуральные числа k и p,поменять местами элементы k и p столбцов массива.

[profi]

Если сидишь 3-й день значит у тебя есть наработки? Выкладывай их.

[ОДИНОЧЕСТВО В СЕТИ]

for i:=1 to n do begin
t:=a[i,k];
a[i,k]:=a[i,p];
a[i,p]:=t;
end;

[np9Huk]

Const n=5;
Var a:array [1..n,1..n] of integer;
i,j,t,k,p,v:integer;
begin for i:=1 to n do begin
for j:=1 to n do read (a[i,j]);
readln;end;
суда как небудь через контенер вставить v
for i:=1 to n do
for j:=1 to n do 
If

[Stilet]

np9Huk

Ну вон предидущий пост фактически ядро программы для тебя.