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

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

Пользователь вводит подряд 8 целых чисел, сохраните их в двух разных двумерных массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу
Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)

var Arr_1 :array[1..2, 1..2] of integer;
    Arr_2 :array[1..4, 1..1] of integer;
    i, j, n :integer;
begin
  writeln('Enter : ');
  for i := 1 to 2 do    // наполнение массива 1
    for j := 1 to 2 do
    begin
      readln(n);
      Arr_1[i][j] := n;
    end;

  for i := 1 to 4 do    // наполнение массива 2
    begin
      readln(n);
      Arr_2[i][1] := n;
    end;

  for i := 1 to 2 do    // вывод массива 1
    begin
    for j := 1 to 2 do
      write(Arr_1[i][j], ' ');
      writeln();
    end;

  for i := 1 to 4 do    // вывод массива 2
    writeln(Arr_2[i][1]);
end.