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

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

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

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

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

Решение:

program u16z01;
var a:array[1..2,1..2] of integer;
  b:array[1..4,1..1] of integer;
  i,j,n: integer;
begin
  for i:=low(a) to high(a) do
    for j:=low(a[i]) to high(a[i]) do
    begin
      write('Введите целое число: ');
      readln(n);
      a[i][j]:=n;
    end;
  for i:=low(b) to high(b) do
    for j:=low(b[i]) to high(b[i]) do
    begin
      write('Введите целое число: ');
      readln(n);
      b[i][j]:=n;
    end;
  writeln();
  for i:=low(a) to high(a) do
  begin
    for j:=low(a[i]) to high(a[i]) do
    begin
      write(a[i][j],'|');
    end;
    writeln();
  end;
  writeln();
  for i:=low(b) to high(b) do
  begin
    for j:=low(b[i]) to high(b[i]) do
    begin
      write(b[i][j],'|');
    end;
    writeln();
  end;
  readln();
end.

Консоль:

Введите целое число: 1
Введите целое число: 2
Введите целое число: 3
Введите целое число: 4
Введите целое число: 5
Введите целое число: 6
Введите целое число: 7
Введите целое число: 8

1|2|
3|4|

5|
6|
7|
8|

vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)