одномерный массив в QBasic

[control1]

Задача: Дан массив состоящий из 10 чисел x(i){-6,-3,4,-2,-1,9,-5,3,7,-4}
Необходимо найти 3 наибольщих отрицательных числа из массива.

[Sazary]

Один из способов: сортируете массив. Потом идете к нулю, и от нуля, двигаясь влево, выводите 3 элемента.

Покажите свои наработки.

[control1]

Сообщение от Sazary

Один из способов: сортируете массив. Потом идете к нулю, и от нуля, двигаясь влево, выводите 3 элемента.

Покажите свои наработки.

REM:Выделить 3 наибольших отрицательных числа
CLS
DIM Z(10) AS INTEGER
DIM B AS INTEGER
DIM I AS INTEGER
DIM n AS INTEGER
DATA -6,-3,4,-2,1,9,-5,3,7,-4
FOR I = 1 TO 10
READ Z(I)
NEXT I
FOR I = 1 TO 9
FOR n = I + 1 TO 10
IF Z(I) > Z(n) THEN
B = Z(I)
Z(I) = Z(n)
Z(n) = B
END IF
NEXT n
NEXT I
FOR I = 1 TO 10
IF Z(I) < 0 THEN
F = Z(I)
END IF
NEXT
FOR I = 1 TO 3
PRINT Z(I);
NEXT I
END

Вот я отсортировал массив только прога мне выдает 3 наименьших числа,каквывести 3 наибольших не могу сообразить.

[program123]

а написать код в теге никак ?

[Sazary]

Вот.. Вроде, все работает.

REM:Выделить 3 наибольших отрицательных числа
CLS
DIM Z(10) AS INTEGER
DIM B AS INTEGER
DIM I AS INTEGER
DIM n AS INTEGER
DATA -6,-3,4,-2,1,9,-5,3,7,-4
FOR I = 1 TO 10
 READ Z(I)
NEXT I

FOR I = 1 TO 9
 FOR n = I + 1 TO 10
  IF Z(I) > Z(n) THEN
  B = Z(I)
  Z(I) = Z(n)
  Z(n) = B
  END IF
 NEXT n
NEXT I

FOR I = 1 TO 10
 IF Z(I) > 0 THEN
  F = I - 1
 EXIT FOR
 END IF
NEXT I

FOR I = F TO F - 2 STEP -1
 PRINT Z(I);
NEXT I
END

[control1]

благодарю ,вы просто гений!