Как в двумерном массиве поменять 1 и 3 строки местами? Паскаль.
Answers & Comments
sellsaccountvar a, b, c, d, k, i, j, n1, n2 :integer; s: array [1..100,1..100] of integer; procedure swap(a, b :integer; var c, d :integer); var e :integer; begin c:=b; d:=a; end;
begin read (n1, n2); for i:=1 to n1 do for j:=1 to n2 do read (s[i,j]); for j:=1 to n2 do swap (s[1,j],s[3,j],s[1,j],s[3,j]); for i:=1 to n1 do begin writeln; for j:=1 to n2 do write (s[i,j],' '); end end.
Answers & Comments
s: array [1..100,1..100] of integer;
procedure swap(a, b :integer; var c, d :integer);
var e :integer;
begin
c:=b;
d:=a;
end;
begin
read (n1, n2);
for i:=1 to n1 do
for j:=1 to n2 do
read (s[i,j]);
for j:=1 to n2 do
swap (s[1,j],s[3,j],s[1,j],s[3,j]);
for i:=1 to n1 do
begin
writeln;
for j:=1 to n2 do
write (s[i,j],' ');
end
end.