12 3 5 7
5 12 4 31
4 23 52 1
14 5 6 9.
Это в результате такого куска кода:
for i:=1 to n do
begin
writeln;
for j:=1 to n do
{begin}
write(a[i,j],' ');
А вот вся:
program lat;
uses crt;
var a:array [1..100,1..100] of integer;
i,j,n,c:integer;
procedure input;
begin
clrscr;
write ('Vvedite razmer ');
readln(n);
end;
procedure output;
begin
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=i+j-1;
if a[i,j]>n then a[i,j]:=a[i,j]-n;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
{begin}
write(a[i,j],' ');
end;
end;
begin
input;
output;
readln;
end.
Подскажите, как сделать вывод этих же результатов в файл (текстовый), тоже в виде матрицы, а то у меня только последняя строка в файл пишется ((. Вот так пытался:
for i:=1 to n do
begin
writeln;
for j:=1 to n do
{begin}
write( f, a[i,j]);
P.S. Ну если низзя в виде матрицы, то пусть хотя б в одну строку,но все файлы.
Заранее спасибо.