Задание:
Введите с клавиатуры одно мерный числовой массив из 9 элементов. Сверните его в матрицу размером 3*3, разместив первую тройку элементов в 1-й строкематрицы, 2-ю тройку — во второй строке, 3-ю тройку — в третьей строке.
Решение:
Varj,i,k: byte; a: array [1… 9] of integer; b: array [1… 3,1… 3] of integer; beginfor i: =1 to 9 doreadln (a[i]); k: =1; for i: =1 to 3 do beginfor j: =1 to 3 do beginb[j,i]: =a[k]; write (b[j,i],'); K: =k+1; end; writeln; end; end.
Знаете другой ответ?