Всем ! 1. в текстовом файле хранятся квадратные целочисленные матрицы порядка n. преобразовать файл, удалив из каждой матрицы элементы побочной диагонали.

217

275

Посмотреть ответы 2

Ответы на вопрос:

helppls7

Информатика

4,7(80 оценок)

Const n = 3; type m = array[1..3, 1..3] of integer; var i, j: integer; f: text; a, b: m; s: string; begin assign(f, 'input.dat'); reset(f); writeln('считываемые данные'); for i : = 1 to n do begin for j : = 1 to n do begin read(f, a[i, j]); write(a[i, j]: 4) end; writeln end; writeln; for i : = 1 to n do begin for j : = 1 to n do begin read(f, b[i, j]); write(b[i, j]: 4) end; writeln end; close(f); rewrite(f); for i : = 1 to n do for j : = 1 to n do if j < > n + 1 - i then write(f, a[i, j], ' '); writeln(f); for i : = 1 to n do for j : = 1 to n do if j < > n + 1 - i then write(f, b[i, j], ' '); writeln(f); close(f); reset(f); writeln('данные, перезаписанные в файл'); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); writeln end. тестовое решение: считываемые данные 2 3 7 4 3 1 8 9 6 14 3 12 5 -2 8 6 0 13 данные, перезаписанные в файл 2 3 4 1 9 6 14 3 5 8 0 13