Дан двумерный массив размерностью 8х7, заполненный случайным образом.
nbsp; nbsp; Поменять

USES Crt;
nbsp;VAR
nbsp;nbsp;nbsp;A:ARRAY[0..8,0..7] OF INTEGER; nbsp;nbsp;A1:ARRAY[0..9,0..7] OF INTEGER;
nbsp;nbsp;nbsp;A2:ARRAY[0..8,0..7] OF INTEGER;
nbsp;nbsp;nbsp;I,J,K:BYTE; nbsp;nbsp;PP:INTEGER;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;Randomize;
nbsp;nbsp;nbsp; Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы
nbsp;nbsp;nbsp;WriteLn( Значения частей двумерного массива);
nbsp;nbsp;nbsp;FOR I:=1 TO 8 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO 7 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;A[I,J]:=Random(15); nbsp;nbsp;Write(A[I,J]:3);
nbsp;nbsp;nbsp;nbsp;nbsp;End; nbsp;nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;End; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp; 1. Поменять местами строчки
nbsp;nbsp;nbsp;WriteLn( Средние строки поменялись местами с первой и заключительной);
nbsp;nbsp;nbsp;FOR J:=1 TO 7 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;PP:=A[1,J]; A[1,J]:=A[4,J]; A[4,J]:=PP;
nbsp;nbsp;nbsp;nbsp;nbsp;PP:=A[5,J]; A[5,J]:=A[8,J]; A[8,J]:=PP;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp; Вывод модифицированного массива
nbsp;nbsp;nbsp;FOR I:=1 TO 8 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO 7 DO
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Write(A[I,J]:3);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;End; nbsp;nbsp;ReadLn;
nbsp;nbsp;nbsp; 2. Вставка
nbsp;nbsp;nbsp;WriteLn( Первая строка вставлена меж средними строчками);
nbsp;nbsp;nbsp;K:=0;
nbsp;nbsp;nbsp;FOR I:=1 TO 8 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;Inc(K);
nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO 7 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;A1[K,J]:=A[I,J]; nbsp;Write(A1[K,J]:3);
nbsp;nbsp;nbsp;nbsp;nbsp;End; nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;nbsp;nbsp;IF I=4 THEN Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Inc(K);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO 7 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;A1[K,J]:=A[1,J]; nbsp;nbsp;Write(A1[K,J]:3);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End; nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;End; nbsp;nbsp;Writeln; nbsp;nbsp;ReadLn;
nbsp;nbsp;nbsp; 3. Удаление
nbsp;nbsp;nbsp;WriteLn( Столбцы, в которых 1-ый элемент gt; заключительного, удалены);
nbsp;nbsp;nbsp;K:=0;
nbsp;nbsp;nbsp;FOR J:=1 TO 7 DO
nbsp;nbsp;nbsp;nbsp;nbsp;IF A[1,J]lt;=A[8,J] THEN Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Inc(K);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;FOR I:=1 TO 8 DO
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;A2[I,K]:=A[I,J];
nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp; Вывод модифицированного массива
nbsp;nbsp;nbsp;FOR I:=1 TO 8 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO K DO
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Write(A2[I,J]:3);
nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;End; nbsp;nbsp;ReadLn;
nbsp;nbsp;nbsp; 4. Подмена
nbsp;nbsp;nbsp;WriteLn( Элементы первых 3-х столбцов изменены на их квадраты);
nbsp;nbsp;nbsp;FOR I:=1 TO 8 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO 7 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;IF Jlt;=3 THEN A[I,J]:=Sqr(A[I,J]); nbsp;nbsp;Write(A[I,J]:4);
nbsp;nbsp;nbsp;nbsp;nbsp;End; nbsp;nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;End;
nbsp;End.