Массивы которые повторяются более двух раз

[Chiefu]

Изменть в массиве числа на -200, которые повторяются более двух раз

[сфинкс]

'bolshe.bas
n = 10
RANDOMIZE TIMER
DIM a(n), s(n)

FOR i = 1 TO n
    a(i) = INT(RND * 5)
    PRINT a(i)
NEXT

FOR k = 1 TO 2
    FOR i = 1 TO n - 1
        FOR j = i + 1 TO n
            IF a(i) = a(j) THEN s(i) = s(i) + 1: s(j) = s(j) + 1
NEXT: NEXT: NEXT: PRINT

FOR i = 1 TO n
    IF s(i) > 2 THEN a(i) = -200
    PRINT a(i), s(i)
NEXT

из qb64 qbasic quickbasic на другие языки переводим сами

визуализация универсальная на дюжины подобных задач

https://www.youtube.com/watch?v=cesSFpUl7uI