Урок 16 Задача 1
Primary tabs
Пользователь вводит подряд 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|
- Log in to post comments
- 567 reads
vedro-compota
Wed, 06/15/2022 - 19:27
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)