Вдвумерном массиве [1..6,1..7] поменять местами 1 и 2, 3 и 4, 5 и 6 строки.

// 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. пример *** исходный массив [6,7] ***   16 -26 -12  33  39 -28  -6   15 -77  15  63 -30 -59 -62   -14  -3 -94  42  49  86  95   -74  75 -69 -44 -43  -2 -62   -68  82 -36 -30 -92 -88  34   -34  16  81 -67    4  -8  80 *** результирующий массив [6,7] ***   15 -77  15  63 -30 -59 -62   16 -26 -12  33  39 -28  -6   -74  75 -69 -44 -43  -2 -62   -14  -3 -94  42  49  86  95   -34  16  81 -67    4  -8  80   -68  82 -36 -30 -92 -88  34

  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. исходный массив:   -1    8  -2    3  -7    3 -10   -4    8    6    2  -1  10  -8   -5  -7    0    2  -6  -2    4   10  -1  -6  -5    2    2  -7   7  -2    8  -8  -3    7  -2   -9  -7    9    2  -2    3  -6 изменённый массив:   -4    8    6    2  -1  10  -8   -1    8  -2    3  -7    3 -10   10  -1  -6  -5    2    2  -7   -5  -7    0    2  -6  -2    4   -9  -7    9    2  -2    3  -6   7  -2    8  -8  -3    7  -2

mail ru

В mail ru можно получать и отправлять почту.

если я не ошибаюсь там можно еще играть, задавать вопросы или отвечать на др вопросы.

Объяснение: