Всем Привет! 1. В текстовом файле хранятся квадратные целочисленные матрицы

порядка n. Преобразовать

файл, удалив из каждой матрицы элементы побочной диагонали.

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