Задача 1 Урок 16
Primary tabs
Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу
Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)
program u16z1; var a: array [1..2, 1..2] of integer; b: array [1..4, 1..1] of integer; i, j: integer; begin writeln('vvedite chisla'); for i:=low(a) to high(a) do for j:=low(a[i]) to high(a[i]) do readln (a[i][j]); for i:=low(b) to high(b) do for j:=low(b[i]) to high(b[i]) do readln (b[i][j]); writeln('M1'); for i:=low(a) to high(a) do begin for j:=low(a[i]) to high(a[i]) do write (a[i][j], ' '); writeln; end; writeln('M2'); for i:=low(b) to high(b) do begin for j:=low(b[i]) to high(b[i]) do write (b[i][j], ' '); writeln; end; readln(); end.
- Log in to post comments
- 363 reads