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

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

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

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

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

var i,j:integer; a: array [1..2, 1..2] of integer; b: array [1..4, 1..1] of integer;

begin
  for i:=1 to 2 do
    for j:=1 to 2 do
      readln(a[i][j]);
  j:=1;
  for i:=1 to 4 do
    readln(a[i][j]);
  for i:=1 to 2 do
  begin
    for j:=1 to 2 do
      write(a[i][j]);
    writeln();
  end;
  j:=1;
  for i:=1 to 4 do
    writeln(a[i][j]);
  readln();
end.