Задание:
Вывести на экран одномерный массив из 12 элементов. Перевести из одномерного массива в двумерный элементы построчно (в 3 строки) ПАСКАЛЬЗАДАЧА
Решение:
Var a, b, c, i: integer; s: array[1… 12] of integer; p: array[1… 4,1… 3] of integer; beginfor i: =1 to 12 do read (s[i]); i: =1; for a: =1 to 4 do for b: =1 to 3 do begin p[a,b]: =s[i]; i: =i+1; end; for a: =1 to 4 do begin for b: =1 to 3 do write (p[a,b],'); writeln; end; end.P.S. Надеюсь на благодарность и лучший ответ.
Знаете другой ответ?