Урок 16 Задача 1
Primary tabs
Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементуОбойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)
var a: array [1..2, 1..2] of integer; // 2 подмассива по 2 эл-та b: array [1..4, 1..1] of integer; // 4 подмассива по 1 эл-ту i, j: integer; begin writeln('Введите 8 чисел:'); 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('Массив 1:'); 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('Массив 2:'); 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.
Вывод в консоли:
Введите 8 чисел: 9 5 2 5 7 8 3 6 Массив 1: 9 5 2 5 Массив 2: 7 8 3 6
- Log in to post comments
- 536 reads
vedro-compota
Sun, 12/18/2022 - 15:44
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)