Написать программы, содержащие функции, указанные в заданиях

[Diana__]

Написать функцию, которая меняет местами элементы указанной строки с элементами указанного столбца.

[angelman78]

Можно написать. На чем (Делфи, С+, VBA, Concept и т.д.)?

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j:integer;

procedure Mesto(x,y:integer);
var z:integer;
begin
   For i:=1 to 10 do
   begin
      z:=p[i,x];
      p[i,x]:=p[y,i];
      p[y,i]:=z;
   end;
end;

procedure WriteArr;
begin
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
end;

begin
   Randomize;
   For i:=1 to 10 do
      For j:=1 to 10 do
         p[i,j]:=Random(21);
   WriteArr;
   Mesto(5,3);
   WriteArr;
   Readln;
end.