Lécci, Lécci tanícsatok meg programozni
-
#114
Feladat: Töltsünk fel egy n elemű tömböt véletlenszerűen számokkal, és rendezzük sorba őket.
const n=10;
type tomb=array[1..n] of integer;
var t:tomb;
procedure feltoltes(var t1:tomb);
var i:integer;
begin
for i:=1 to n do
t1[i ]:=random(100);
end;
procedure kiiratas(t2:tomb);
var i:integer;
begin
for i:=1 to n do
write(t2[i ]:4);
writeln;
end;
procedure rendezes(var t3:tomb);
var i,j,seged:integer;
begin
randomize;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
min:=1;
if t3[i ]<t3[j] then min:=1;
seged:=t3[i ];
t3[i ]:=t3[j];
t3[j]:=seged
end;
end;
begin
feltoltes(t);
kiiratas(t);
rendezes(t);
kiiratas(t)
readln;
end.
amit pirossal írtam, azzal problémázik. :S Mit rontottam el?