Дан массив n*10 необходимо его отсортировать , разработайте программу сортировки по убыванию методом выбора. в паскале=***

246

269

Посмотреть ответы 2

Ответы на вопрос:

yuliyaefremova3

Информатика

4,5(74 оценок)

procedure findmin(startindex: integer; var lowindex: integer); var lowelem: real; u: integer; begin lowindex : = startindex; lowelem : = m[startindex]; for u: =startindex+1 to n do if m[u] < lowelem then begin lowelem : = m[u]; lowindex : = u end end;

begin for j: =1 to n-1 do begin findmin(j, i); swap(m[j],m[i]) end end.