Qbasic. Разновидности чисел

[low_radio]

Помогите пожалуйста, нужно решить задачу:
Вводиться несколько чисел, нужно найти найти наибольшее кол-во совпадений, учесть возможность неоднозначности.
В моей наработке числа сначала выстраиваются по возрастанию, затем под номером числа записывается кол-во повторений этого числа. Как учесть возможность неоднозначности и вывести все это?

 LET b(1) = 1
 LET l = 1
 FOR j = 1 TO n - 1 STEP 1
  FOR i = 1 TO n - 1 STEP 1
   IF a(i) > a(i + 1) THEN
    SWAP a(i), a(i + 1)
   END IF
  NEXT i
 NEXT j
 FOR i = 1 TO n - 1 STEP 1
  IF a(i) = a(i + 1) THEN
   LET b(l) = b(l) + 1
  ELSE
   LET l = i
   LET b(i) = 1
  END IF
 NEXT i
 FOR i = 1 TO n STEP 1
  PRINT b(i);
 NEXT i
 RETURN

[Sciv]

Если под неоднозначностью подразумеваются числа с разными знаками то как-то так:

IF (ABS(A)=ABS(B)) AND (A>0) AND (B<0) THEN ...

[low_radio]

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

Если под неоднозначностью подразумеваются числа с разными знаками то как-то так:

IF (ABS(A)=ABS(B)) AND (A>0) AND (B<0) THEN ...

Нет, под неоднозначностью числа имеется ввиду то что может быть несколько чисел одновременно(допустим максимум 5 совпадений, но у 2 чисел.

[low_radio]

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

Если под неоднозначностью подразумеваются числа с разными знаками то как-то так:

IF (ABS(A)=ABS(B)) AND (A>0) AND (B<0) THEN ...

Опс! Прошу прощения, описал задачу не совсем так. Подправил.

[Sciv]

5 совпадений, но у 2 чисел.

это как? Наверное, имеется в виду, что одно число повторяется пять раз?

Тогда алгоритм такой:

1. Во временную temp запоминаем текущее (первое) число. Счетчик=1
2. Цикл пока числа не колчились
2.1 Если Число=Темп тогда Счетчик=Счетчик+1 иначе Вывод(Число,Счетчик);
Счетчик=1;
Темп=число;