Здравствуйте, swame, Вы писали:

S>1. Твой алгоритм не сортирует.
S>Поставь после сортировки
S>for w := 0 to 999998 do
S> Assert (curarray.fitems[w]<=curarray.fitems[w+1],
S> w.ToString + ' ' + FloatToStr(curarray.fitems[w]) + ' ' + FloatToStr(curarray.fitems[w+1]));

А что это? У вас конец массива 999998 а надо 99998, по размеру массива. Если выставить 99998 — срабатывания не будет.

p.s. Влад спрашивает, забанить ли меня, просьба всем неравнодушным заглянуть в тему и поставить либо минус либо плюс:

https://rsdn.org/forum/flame.politics/8791571.1

Автор: VladD2
Дата: 01.08.24