uvedenú maticu reťazcov usporiadajte podľa pravidiel pre usporiadavanie reťazcov od najmenšieho po najväčší a to v rámci celej matice. Uvedenú usporiadnú maticu vypíšte.
maticu som uz vygenerovala a vypisala, len neviem ju usporiadat
skusila som to takto, ale vypisuje mi chybu
Kód: Vybrať všetko
procedure usporidaj(var M3:matica);
var i,j,n:integer;
pom:string[5];
begin
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if M3[i]>M3[j] then
begin
pom:=M3[i];
M3[i]:=M3[j];
M3[j]:=pom;
end;
end;
end;
end;
