задание 1 урок 16 new
Primary tabs
Пользователь вводит подряд 4 целых числа, сохраните их одновременно в двух разных
двумерных массивах:1) так чтобы в каждом подмассиве было 2 элемента.
2) так чтобы в каждом подмассиве было по 1 элементуОбойдите эти двумерные массивы и распечатайте результат (значения очередного
подмассива печатайте с новой строки
var a: array[1..2,1..2] of Integer; b: array[1..4,1..1] of Integer; i,g: Integer; {индексы} begin {НАЧАЛО: Заполнение 1 массива} WriteLn('vvedite (', 4, ' elementa)'); for i:=1 to 2 do // по массиву массивов for g:= 1 to 2 do // по вложенному массиву begin ReadLn(a[i,g]); {ввод элемента с клавиатуры} b[i,g]:=a[i,g]; end; //вывод массивов for i:= 1 to 2 do begin for g:= 1 to 2 do write(a[i,g]:2); readln(); end; writeln(); for i:= 1 to 4 do begin for g:=1 to 1 do write(b[i,g]:2); readln(); end;
- Log in to post comments
- 1402 reads
vedro-compota
Wed, 11/10/2021 - 18:46
Permalink
обсудили, условие исправлено
обсудили, условие исправлено http://fkn.ktu10.com/?q=node/13330
_____________
матфак вгу и остальная классика =)
nglag
Wed, 11/10/2021 - 20:48
Permalink
решение по новому условию
ЗАДАЧА 1 урок 16