Możecie mnie naprowadzić jak powinno wyglądać prawidłowe rozwiązanie tego zadania? Poniżej dodałem moje dwa rozwiązania, ale nie wiem który wybrać i czy w ogóle jest dobrze napisany.
Napisz program, w którym zdefiniowaną tablicę dwuwymiarową o rozmiarach 10x10 wypełniamy w zakresie NxN losowymi liczbami całkowitymi z przedziału (-10,10). Program ma dokonać transpozycji macierzy (tablicy), tworząc na jej podstawie nową macierz. Obie macierze mają zostać wyświetlone na ekranie.
program 1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
t: array [1..10,1..10] of integer;
i,j,n:integer;
begin
writeln('Podaj N:');
readln(n);
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if (n >= i) and (n >= j) then t[i,j] := random(19)-9
else t[i,j]:=0;
write(t[i,j]:4);
end;
writeln;
end;
readln;
end.
program 2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
t array [1..10,1..10] of integer;
i,j,ninteger;
begin
writeln('Podaj N');
readln(n);
for i = 1 to n do
begin
for j = 1 to n do
begin
t[i,j] = random(19)-9;
write(t[i,j]4);
end;
writeln;
end;
writeln;
for i = 1 to n do
begin
for j = 1 to n do
begin
write(t[j,i]4);
end;
writeln;
end;
readln;
end.