Witam chcę napisać program, który generuje macierz o rozmiarze NxN. Do tej pory skleciłem coś takiego ale po podaniu liczby n wyskakuje mi tylko jeden wiersz tak jakby była to tablica jednowymiarowa.
program asd;
var
t:array of array of Integer;
n, i, j : integer;
begin
writeln('Podaj liczbę n');
readln(n);
SetLength(t, n, n);
for i:=1 to n do
begin
for j:=1 to n do
begin
t[i,j] := random(100);
write(t[i,j], ' ');
end;
writeln;
readln;
end;
end.
dodanie znacznika <code class="delphi">
- @furious programming