Question

Введите с клавиатуры одномерный числовой массив из 9 элементов. Сверните его в матрицу размером 3x3, разместив первую тройку элементов в 1-й строке матрицы, 2-ю тройку — во второй строке, 3-ю тройку — в третьей строке. Полученную матрицу выведите на экран и в текстовый файл.

Answer 1

program ConvertToMatrix;
var   inputArray: array [1..9] of integer;   matrix: array [1..3, 1..3] of integer;   i, j: integer;
begin   writeln('Введите 9 элементов одномерного массива:');   for i := 1 to 9 do   begin     write('Элемент ', i, ': ');     readln(inputArray[i]);   end;
  writeln('Матрица:');   for i := 1 to 3 do   begin     for j := 1 to 3 do     begin       matrix[i, j] := inputArray[(i - 1) * 3 + j];       write(matrix[i, j], ' ');     end;     writeln;   end;
  writeln('Запись матрицы в файл...');   // Запись в файл можно выполнить аналогично предыдущему примеру.
  readln; end.