Musze odwrocic wyswietlanie przekatnych tablicy, czyli zamienic te przekatne miejscami. Ktoś wie jak to zrobić? ;d
program tab_2w;
uses CRT;
var
t:array[1..50,1..50] of integer;
i,j,n,b,suma,suma1:integer;
begin
clrscr;
textcolor(7);
writeln(' ษอออออออออออออออออออออออออออออออออออออออออออออออออ ป');
writeln(' บ PROGRAM - TABLICE บ');
writeln(' ศอออออออออออออออออออออออออออออออออออออออออออออออออ ผ');
textcolor(6);
randomize;
gotoxy(30,5);
write('Podaj stopieไ tablicy: '); textcolor(14); read(n);


for i:=1 to n do
for j:=1 to n do
t[i,j]:=random(1001);
writeln;
textcolor(2);
writeln('Tablica z wylosowanymi liczbami:');


for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if (i=n+1-j) then suma:=suma+t[i,j];
if (i=j) then suma1:=suma1+t[i,j];


write(t[i,j]:4);


end; end;
writeln; writeln;
writeln('Suma przekฅtnej 1: ' ,suma1);
writeln('Suma przekฅtnej 2: ' ,suma);

repeat until keypressed
end.