5 6

7 6 6 5 7 15

6 3 5 1 2 9

10 5 9 2 3 19

5 8 1 3 5 6

10 9 5 6 9 10

const

  xsize:byte=5;

  ysize:byte=7;

var

  k:byte;

  m:array[1..ysize,1..xsize] of real;

  ys:byte; {Нам она нужна, чтобы изменить размер матрицы после удаления}

begin

  write('Введите номер строки, который удалять: ');

  readln(k);

  ... {тут вводим данные матрицы}

  ys:=ysize; {Установим начальное значение для количества строк в матрице}

  for o:=k+1 to ys do {Будем перебирать все строки после удаляемой}

  for p:=1 to xsize do m[o-1,p]:=m[o,p]; {Каждый элемент строки переносим на один вверх}

  dec(ys); {Укажем, что матрица уже на одну строку меньше}

  ... {Тут выводим матрицу}

end.

const

  xsize:byte=5;

  ysize:byte=7;

var

  k:byte;

  m:array[1..ysize,1..xsize] of real;

  xs:byte; {Нам она нужна, чтобы изменить размер матрицы после удаления}

begin

  write('Введите номер столбца, который удалять: ');

  readln(k);

  ... {тут вводим данные матрицы}

  xs:=xsize; {Установим начальное значение для количества столбцов в матрице}

  for o:=1 to ysize do {Будем перебирать все строки}

  for p:=k+1 to xs do m[o,p-1]:=m[o,p]; {элемент из каждого столбца переносим на один влево}

  dec(xs); {Укажем, что матрица уже на один столбец меньше}

  ... {Тут выводим матрицу}

end.

type

  pnode=^tnode;

  tnode=record

   val:integer;

   next:pnode;

  end;

  prow=^trow;

  trow=record

   row:pnode;

   next:prow;

  end;

var

  matr:prow;

  temprow:prow;

  tempcolumn:pnode;

  xsize,ysize:byte;

  x,y:byte;

 

procedure showmatrix(matr:prow);

var temp:pnode;

begin

  while matr<>nil do

  begin

   temp:=matr^.row;

   while temp<>nil do

   begin

     write(temp^.val:5);

     temp:=temp^.next;

   end;

   writeln;

   matr:=matr^.next;

  end;

end;

 

begin

  matr:=nil;

  write('Введите ширину матрицы:');

  readln(xsize);

  write('Введите высоту матрицы:');

  readln(ysize);

  {Формируем динамическую матрицу}

  for y:=1 to ysize do

  begin

   if matr=nil then

   begin

     new(matr);

     temprow:=matr;

   end else

   begin

     new(temprow^.next);

     temprow:=temprow^.next;

   end;

   temprow^.row:=nil;

   for x:=1 to xsize do

   begin

     if temprow^.row=nil then

     begin

       new(temprow^.row);

       tempcolumn:=temprow^.row;

     end else

     begin

       new(tempcolumn^.next);

       tempcolumn:=tempcolumn^.next;

     end;

     tempcolumn^.val:=random(100)-50;

   end;

   tempcolumn^.next:=nil;

  end;

  temprow^.next:=nil;

  writeln('Вот получившаяся матрица:');

  showmatrix(matr);

  writeln('Удалим из неё строку и столбец.');

  write('Введите номер столбца, который следует удалить:');

  readln(xsize);

  write('Введите номер строки, которую следует удалить:');

  readln(ysize);

  {Уберём их}

  y:=1;

  if ysize=1 then matr:=matr^.next;

  temprow:=matr;

  while temprow<>nil do

  begin

   if xsize=1 then temprow^.row:=temprow^.row^.next;

   x:=1;

   tempcolumn:=temprow^.row;

   while tempcolumn<>nil do

   begin

     if x=xsize-1 then

     begin

       tempcolumn^.next:=tempcolumn^.next^.next;

       break;

      end else tempcolumn:=tempcolumn^.next;

     inc(x);

   end;

   if y=ysize-1 then

   begin

     temprow^.next:=temprow^.next^.next;

     inc(y);

   end;

   temprow:=temprow^.next;

   inc(y);

  end;

  writeln('Вот получившаяся матрица:');

  showmatrix(matr);

end.

const {Объявим константы}

  n=4; {Размер матрицы}

var {Объявим переменные}

  m:array[1..n,1..n] of integer;

  {Матрица m - двухмерный массив с шириной и высотой n

   каждый элемент - переменная типа integer}

 

  i,j:byte;

  {Переменные счётчики по вертикали и по горизонтали

   Будут использоваться для заполнения, обмена и вывода элементов матрицы

   тип - byte, потому что матрица не будет больше чем 255x255}

 

  k:integer;

  {Временная переменная k, будет использована для обмена значений элементов

   матрицы}

 

{---------Начало программы---------}

begin

  {Сначала заполним матрицу числами}

  for j:=1 to n do {Перебираем строки матрицы}

  for i:=1 to n do {Перебираем столбцы матрицы}

  begin

    write('Введите m(',i,',',j,'): '); {Выводим запрос пользователю}

    readln(m[i,j]); {Читаем с клавиатуры число, и ложим его в соотв. ячейку}

  end;

 

  {Теперь обменяем значения элементов матрицы относительно главной диагонали}

  for j:=1 to n do {Перебираем строки матрицы}

  for i:=1 to j-1 do {Перебираем столбцы матрицы}

  begin {j-1 потому что нам не нужны элементы самой главной диагонали}

    k:=m[i,j]; {Запоминаем значение из нижней левой части матрицы}

    m[i,j]:=m[j,i]; {Меняем его на значение из соотв. верхней правой части}

    m[j,i]:=k; {Меняем значение из верхней правой части на раннее сохранённое}

  end;

 

  {Наконец выведем содержимое матрицы на экран}

  for j:=1 to n do {Перебираем строки матрицы}

  begin

    for i:=1 to n do {Перебираем столбцы матрицы}

      write(m[i,j]:5); {Выведем текущий элемент, расширив его до 5 символов}

    writeln; {Перейдём на новую строку}

  end;

end.

const {Объявим константы}

  n=4; {Размер матрицы}

var {Объявим переменные}

  m:array[1..n,1..n] of integer;

  {Матрица m - двухмерный массив с шириной и высотой n

   каждый элемент - переменная типа integer}

 

  i,j:byte;

  {Переменные счётчики по вертикали и по горизонтали

   Будут использоваться для заполнения, обмена и вывода элементов матрицы

   тип - byte, потому что матрица не будет больше чем 255x255}

 

  k:integer;

  {Временная переменная k, будет использована для обмена значений элементов

   матрицы}

 

{---------Начало программы---------}

begin

  randomize; {Инициализируем генератор случайных чисел}

 

  {Сначала заполним матрицу числами}

  for j:=1 to n do {Перебираем строки матрицы}

  for i:=1 to n do {Перебираем столбцы матрицы}

    m[i,j]:=random(100); {Генерируем случайное число от 0 до 99, и заносим его в матрицу}

 

  {Теперь обменяем значения элементов матрицы относительно главной диагонали}

  for j:=1 to n do {Перебираем строки матрицы}

  for i:=1 to j-1 do {Перебираем столбцы матрицы}

  begin {j-1 потому что нам не нужны элементы самой главной диагонали}

    k:=m[i,j]; {Запоминаем значение из нижней левой части матрицы}

    m[i,j]:=m[j,i]; {Меняем его на значение из соотв. верхней правой части}

    m[j,i]:=k; {Меняем значение из верхней правой части на раннее сохранённое}

  end;

 

  {Наконец выведем содержимое матрицы на экран}

  for j:=1 to n do {Перебираем строки матрицы}

  begin

    for i:=1 to n do {Перебираем столбцы матрицы}

      write(m[i,j]:5); {Выведем текущий элемент, расширив его до 5 символов}

    writeln; {Перейдём на новую строку}

  end;

end.