Работа с массивами - Pascal (89853)

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

водится массив 4 на 4 поменять четные и не четные строчки местами,вывести на экран получившийся масив

Решение задачи: «Работа с массивами»

Листинг программы

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j:byte;
    x:integer;
begin
clrscr;
writeln('Введите ',n*n,' элементов массива-целых чисел:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
writeln;
for i:=1 to n do
if odd(i) then
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[i+1,j];
  a[i+1,j]:=x;
 end;
writeln('Обмен четных и нечетных строк:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

Объявлены переменные: n (константа), a (массив), i, j (переменные-счетчики), x (временная переменная).
Задается размер массива n=4.
Пользователю предлагается ввести элементы массива.
Для ввода используется два вложенных цикла.
Выводится исходный массив.
Производится обмен четных и нечетных строк массива.
Для обмена используется два вложенных цикла.
Выводится измененный массив.
Программа ожидает ввода для продолжения работы.