[lxa85]

For i = 1 To m * n - 1 'сортирую Min = Abs(B(i)) k_min = i ... Next B(k_min) = Abs(B(i)) B(i) = Min Next »

Я сейчас точно не могу сформулировать. Но в этих присвоениях - ошибка. Внимательно смотри чему у тебя приравнивается абсолютная величина. Т.е. начало правильное - мы работаем с абсолютными величинами, а конец B(i) = Min - неправильный, т.к. Min - уже сам по себе модульный.

Min = Abs(B(j)) »

А! Ну вот он зверь. К минимуму следует приравнять не модуль, а подмодульную величину.
Тогда код изменится примерно так (проверь):

Код:

For i = 1 To m * n - 1                     'сортирую
 Min = B(i)
 k_min = i
  For j = i + 1 To m * n
   If Abs(B(j)) > Abs(Min) Then
    Min = B(j)
    k_min = j
   End If
  Next
 B(k_min) = Abs(B(i))
 B(i) = Min
Next

Что делает k_min я не понял, и честно сказать саму сортировку пока тоже не понял. На метод пузырька вроде похож, а вроде и нет. ... Ну и ладно, фиг с ним, главное, чтобы работал.

[x3 aka a-droo]

поставил ваш вариант
ситуация стала лучше, но не полностью исправилась)
иногда терял минусы , иногда нет))
вот скрин
http://forum.oszone.net/attachment.p...0&d=1323638011

но потом методом тыка решил убрать модуль вот в этой строке

Код:

B(k_min) = B(i)

в результате вот рабочий кусок

Код:

For i = 1 To m * n - 1                   
 Min = B(i)
 k_min = i
  For j = i + 1 To m * n
   If Abs(B(j)) > Abs(Min) Then
    Min = B(j)
    k_min = j
   End If
  Next
 B(k_min) = B(i)
 B(i) = Min
Next

Огромное спасибо!)