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

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

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

Решение

program task_1_lesson_16;
// Вариант №1
var
  n, i, j: integer;
  a: array[1..2, 1..2] of integer;
begin
  for i := low(a) to high(a) do
    for j := 1 to 2 do
      begin
        readln(n);
        a[i][j] := n;
      end;
  for i := low(a) to high(a) do
    begin
    for j := 1 to 2 do
      begin
        write(a[i][j],'  ');
      end;
    writeln()
    end;
  readln
end.

// Вариант №2

var
  n, i, j, k: integer;
  a: array[1..2, 1..2, 1..1] of integer;
begin
  for i := low(a) to high(a) do
    for j := low(a[i]) to high(a[i]) do
      for k := low(a[i][j]) to high(a[i][j]) do
      begin
        readln(n);
        a[i][j][k] := n;
      end;
  for i := low(a) to high(a) do
  begin
    for j := low(a[i]) to high(a[i]) do
    begin
      for k := low(a[i][j]) to high(a[i][j]) do
        write(a[i][j][k], ' ');
      writeln();
    end;
    writeln();
  end;
  readln
end.