var
t:array[1..3,1..3] of integer;
i,j:byte;
v:text;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('Enter elements [',i,',',j,'] ');
readln(t[i,j]);
end;
assign(v,'output.txt');
rewrite(v);
for i:= 3 downto 1 do
begin
for j:= 1 to 3 do
write(v, t[i,j], ' ' );
writeln(v);
end;
close(v);
end.
Problem is next. I need to change row right to left and i need to save entered numbers to "input.txt" and save reversed rows to "output.txt".
I have tried something and then crashes pascal or i get blank txt file.