Задание элементов двумерного массива

1. считывание из текстового файла

. . .

const n=10,m=5;{размерность матрицы}

var a:array[1..n,1..m] of real;{матрица N x M}

i,j:integer;{индексы элементов}

f:text;

begin

Assign(f,’matr.dat’);reset(f);

for i:=1 to N do begin

for j:=1 to M do read(f,a[i,j]);

readln(f);

end;

. . .

Вывод элементов двумерного массива

1. в текстовый файл

. . .

const n=10,m=5;{размерность матрицы}

var a:array[1..n,1..m] of real;{матрица N x M}

i,j:integer;{индексы элементов}

f:text;

begin

. . .

Assign(f,’mymatr.txt’);rewrite(f);

for i:=1 to N do begin

for j:=1 to M do write(f,a[i,j]:5:2);

writeln(f);

end;

. . .