Question

Введите из текстового файла целочисленную матрицу размером 6x8. Переверните матрицу, поменяв 1-ю строку с 6-й строкой, 2-ю строку с 5-й, 3-ю строку с 4-й и запишите полученную матрицу в другой файл.

Answer 1

program MatrixTranspose;
var   inputMatrixFile, outputMatrixFile: text;   matrix: array [1..6, 1..8] of integer;   i, j: integer;
begin   assign(inputMatrixFile, 'inputMatrix.txt');   reset(inputMatrixFile);
  assign(outputMatrixFile, 'outputMatrix.txt');   rewrite(outputMatrixFile);
  for i := 1 to 6 do     for j := 1 to 8 do       read(inputMatrixFile, matrix[i, j]);
  for i := 1 to 3 do   begin     for j := 1 to 8 do     begin       write(outputMatrixFile, matrix[7 - i, j], ' ');       write(matrix[7 - i, j], ' ');     end;     writeln(outputMatrixFile);     writeln;   end;
  close(inputMatrixFile);   close(outputMatrixFile); end.