В двумерном массиве 5´5 поменять местами первый и последний столбцы. - Turbo Pascal

Формулировка задачи:

32.Решить задачу в Turbo Pascal.В двумерном массиве 5´5 поменять местами первый и последний столбцы.


textual

Код к задаче: «В двумерном массиве 5´5 поменять местами первый и последний столбцы. - Turbo Pascal»

const
  n = 5;
var
  a : array [1..n, 1..n] of integer;
  i, j, temp : integer;
begin
  randomize;
  writeln('изначально:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(20) - 10;
      write(a[i,j]:5)
    end;
    writeln
  end;
  {меняем}
  for i := 1 to n do
  begin
    temp := a[i,1];
    a[i,1] := a[i,n];
    a[i,n] := temp
  end;
  {выводим новый}
  writeln('после обмена:');
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i,j]:5);
    writeln
  end;
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.000 из 5

Источник
Похожие ответы