Массив в файл в виде квадратной матрицы - Pascal ABC

Формулировка задачи:

Нужно чтобы массив в файл выводило в виде квадратной матрицы, а оно выводит все элементы в одну строку.
program laba;
var a:array[1..255,1..255] of real;
    i,j,n:byte;
    f1,f2:text;
begin
Assign(f1, 'input.txt');
Assign(f2, 'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=1/(i+j);
write(f2,a[i,j]:6:2);
end;
end;
close(f1);
close(f2);
end.
И по возможности исправьте ошибки, если есть.

Код к задаче: «Массив в файл в виде квадратной матрицы - Pascal ABC»

textual
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=1/(i+j);
If j=n then writeLN(f2,a[i,j]:6:2) else write(f2,a[i,j]:6:2);
end;
end;

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ