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

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

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

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

textual
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.

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


СОХРАНИТЬ ССЫЛКУ