Шрек, пожалуйста, повнимательнее к условиям ветвления! У Вас (топик #4)
Цитата:
Сообщение от shrek=)
Код:
if (x[i]<=0) and (x[i]<min) then min:=x[i];
|
эта строка обеспечивает поиск минимума из неположительных (отрицательных и нулевых) элементов, а надо из положительных. Поэтому условие
следует заменить на