Урок 16. Задача 1.
Primary tabs
Пользователь вводит подряд 8 целых чисел, сохраните их в двух разных двумерных массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу
Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)
var Arr_1 :array[1..2, 1..2] of integer; Arr_2 :array[1..4, 1..1] of integer; i, j, n :integer; begin writeln('Enter : '); for i := 1 to 2 do // наполнение массива 1 for j := 1 to 2 do begin readln(n); Arr_1[i][j] := n; end; for i := 1 to 4 do // наполнение массива 2 begin readln(n); Arr_2[i][1] := n; end; for i := 1 to 2 do // вывод массива 1 begin for j := 1 to 2 do write(Arr_1[i][j], ' '); writeln(); end; for i := 1 to 4 do // вывод массива 2 writeln(Arr_2[i][1]); end.
- Log in to post comments
- 531 reads
vedro-compota
Thu, 09/08/2022 - 19:08
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)