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

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

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

type
  myArr1 = array[1..2, 1..2] of integer;
  myArr2 = array[1..4, 1..1] of integer;


function get14num(): myArr1;
var i, i2: integer;
    a:  myArr1;
begin
   for i:=low(a) to high(a) do
    for i2:=low(a[i2]) to high(a[i2]) do
      readln(a[i][i2]);
   result := a;
end;


procedure printArr1(a: myArr1);
var i, i2: integer;
begin
   writeln('output of the first array');
  for i:=low(a) to high(a) do
    begin
      for i2:=low(a[i2]) to high(a[i2]) do
        write (a[i][i2], ' ');
      writeln;
    end;
end;

function get24num(): myArr2;
var i, i2: integer;
    b: myArr2;
begin
   for i:=low(b) to high(b) do
    for i2:=low(b[i2]) to high(b[i2]) do
     readln(b[i][i2]);
   result := b;
end;

procedure printArr2(b: myArr2);
var i, i2: integer;
begin
 writeln('output of the second array');
 for i:=low(b) to high(b) do
     begin
       for i2:=low(b[i2]) to high(b[i2]) do
         write (b[i][i2], ' ');
       writeln;
     end;
    end;

begin
  writeln('enter the first 4 numbers');
  printArr1(get14num());
  writeln('enter the second 4 numbers');
  printArr2(get24num());
  readln();
end.            

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

enter the first 4 numbers
12
25
67
34
output of the first array
12 25
67 34
enter the second 4 numbers
4
4
4
4
output of the second array
4
4
4
4