сортировка методом выбора...паскаль...

[Оксаночка:)]

Оформить процедурой сортировку числового массива методом выбора. Определение минимального элемента сделать в виде еще одной (внутренней) процедуры....ВоТь

[Sazary]

http://pblog.ru/lab/?p=59
переделайте как вам нужно

[Оксаночка:)]

сПаСиБо !!!

но всё же...вдруг я не правильно напишу...и вообще я неззнаю как это

procedure sort4;
var i,j,kmin,c:integer;
begin
for i:=1 to n-1 do
 begin
 kmin:=i;
 for j:=i+1 to n do if a[kmin]>a[j] then kmin:=j;
 c:=a[i];
 a[i]:=a[kmin];
 a[kmin]:=c;
 end;
end;

сделать в виде процедуры, и определение минимального елемента оформить внутринней процедуре...

[profi]

procedure sort;
var i,c:integer;
begin
 for i:=1 to 5 do 
       if a[i]>a[i+1] then 
        begin
          c:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=c;
       end;

Сортирует массив из пяти элементов.

[Оксаночка:)]

а поиск минимального елемента в отдельной внутринней процедуре...

[profi]

procedure sort;
var i,min:integer;
begin
min:=a[1];
 for i:=1 to 5 do 
       if a[i]<min then 
              min:=a[i];
writeln('Min: ',min);
       end;