Question

Введите с клавиатуры построчно в двумерный массив числовую матрицу размером 4x4. Разверните ее по столбцам в одномерный массив. Запишите массив в текстовый файл.

Answer 1

program MatrixToTextFile;
var   matrix: array [1..4, 1..4] of integer;   i, j: integer;   outputFile: text;
begin   writeln('Введите матрицу 4x4:');   for i := 1 to 4 do     for j := 1 to 4 do       read(matrix[i, j]);
  assign(outputFile, 'outputMatrix.txt');   rewrite(outputFile);
  writeln(outputFile, 'Матрица:');   for i := 1 to 4 do   begin     for j := 1 to 4 do       write(outputFile, matrix[i, j]:4, ' ');     writeln(outputFile);   end;
  close(outputFile);   writeln('Матрица записана в файл outputMatrix.txt.');
  readln; end.