|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите сделать задание. Нужно отсортировать массив до 1 и после
Я написал, но ответ не тот который нужен. Где ошибка?
Код:
var a:array[0..4] of integer; i,j,l,k,max,min:integer; begin for i:=0 to 4 do a[i]:=StrToInt(StringGrid1.Cells[i,0]); for i:=0 to 4 do begin min:=1; if (a[i]<1) then for j:=i+1 to 4 do if (a[i]<a[Min]) then min:=j; s:=a[i]; a[i]:=a[Min]; a[min]:=s; end; for i:=0 to 4 do begin max:=1; if (a[i]>1) then for l:=i+1 to 4 do if (a[i]>a[Max]) then max:=l; k:=a[i]; a[i]:=a[Max]; a[max]:=k; StringGrid2.Cells[i,0]:=IntToStr(a[i]); end; end; |