Урок 16 Задача 1

Урок 16 Задача 1:

Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных массивах:

1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу

Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)

var
  a: array [1..2, 1..2] of integer;    // 2 подмассива по 2 эл-та
  b: array [1..4, 1..1] of integer;    // 4 подмассива по 1 эл-ту
  i, j: integer;
begin
  writeln('Введите 8 чисел:');
  for i:=low(a) to high(a) do
    for j:=low(a[i]) to high(a[i]) do
      readln (a[i][j]);                // считываем в первый массив
  for i:=low(b) to high(b) do
    for j:=low(b[i]) to high(b[i]) do
      readln (b[i][j]);                // считываем во второй массив
  writeln('Массив 1:');
  for i:=low(a) to high(a) do
  begin
    for j:=low(a[i]) to high(a[i]) do
      write (a[i][j], ' ');            // выводим элементы первого массива
    writeln;                           // новая строка после каждого подмассива
  end;
  writeln('Массив 2:');
  for i:=low(b) to high(b) do
  begin
    for j:=low(b[i]) to high(b[i]) do
      write (b[i][j], ' ');            // выводим элементы второго массива
    writeln;                           // новая строка после каждого подмассива
  end;
  readln();
end.

Вывод в консоли:

Введите 8 чисел:
9
5
2
5
7
8
3
6
Массив 1:
9 5 
2 5 
Массив 2:
7 
8 
3 
6