Введите с клавиатуры одномерный числовой массив из 9 элементов. Сверните его в матрицу размером 3×3, разместив первую тройку
Вопрос посетителя
Введите с клавиатуры одномерный числовой массив из 9 элементов. Сверните его в матрицу размером 3×3, разместив первую тройку элементов в 1-й строке матрицы, 2-ю тройку — во второй строке, 3-ю тройку — в третьей строке. Полученную матрицу выведите на экран и в текстовый файл
Ответ эксперта
Uses crt;
Var A:array[1..3,1..3] of integer; B:array[1..9] of integer;
i,j,k:integer;
Begin
ClrScr; j:=1; k:=1;
For i:=1 to 9 do Readln(B[i]);
For i:=1 to 9 do
Begin
A[j,k]:=B[i]; inc(k);
If k=4 then
Begin
inc(j); k:=1;
End;
End;
For i:=1 to 3 do
Begin
For j:=1 to 3 do Write(A[i,j]:4);
Writeln;
End;
Readln;
End.