Const N = 6; M = 7; Var A:array[1..N,1..M] of integer; i,j,B:integer; Procedure Obmen(n1,n2:integer); Var j:integer; Begin For j:= 1 to M do Begin B:=A[n1,j]; A[n1,j]:=A[n2,j]; A[n2,j]:=B; End; End; Begin WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); End; WriteLn; End; WriteLn('Изменённый массив:'); Obmen(1,2); Obmen(3,4); Obmen(5,6); For i:= 1 to N do Begin For j:= 1 to M do Write(A[i,j]:3,' '); WriteLn; End; End.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив [6,7] ***'); var a:=MatrRandom(6,7,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** Результирующий массив [6,7] ***'); for var i:=0 to 2 do a.SwapRows(2*i,2*i+1); a.Println(4) end.
Объяснение:
во вложениях......
• – это ^. у меня он не ставится, у себя ставьте!!
+ – это v.