pascal porzadkowanie ciagu,,prosze o pomoc!!

Programowanie w środowisku Delphi lub Pascal
inge313
Posty: 1
Rejestracja: 27 sty 2012, 21:57

pascal porzadkowanie ciagu,,prosze o pomoc!!

Post autor: inge313 » 27 sty 2012, 22:19

tytuł mojej pracy domowej brzmi: porządkowanie ciągu metodą wyboru. iteracja algorytmu 4. nie mam o tym pojęcia!!
czy chodzi o to:

program sort_wybor;
uses crt;
const n:=20
Var
d:array[1..N]of integer;
i,j,x,min:integer;
Begin
clrscr;
randomize;
for i:=1 to N do d:=random(100);
writeln('Przed sortowaniem:');
for i:=1 to N do writeln(d);

for j:=1 to N-1 do
begin
min:=j;
for i:=j+1 to N do
if d < d[min] then min:=i;
x:=d[min];
d[min]:=d[j];
d[j]:=x;
end;
Writeln('Po sortowaniu:');
for i:=1 to N do
writeln(d);
repeat until keypressed;
End.


prosze o pomoc!!