Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > Windows Forms
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2021, 23:50   #1
Chiefu
Новичок
Джуниор
 
Регистрация: 24.11.2021
Сообщений: 1
Сообщение Массивы которые повторяются более двух раз

Изменть в массиве числа на -200, которые повторяются более двух раз
Chiefu вне форума Ответить с цитированием
Старый 25.11.2021, 00:55   #2
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Код:
'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
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 25.11.2021 в 01:02.
сфинкс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос: по всем компаниям А, которые повторяются в файле несколько раз, автоматически преставился один статус – изменения – последний статус. Помогите сделать скрипт :) Olya1985 Microsoft Office Excel 2 13.06.2017 14:27
Паскаль-Составить программу, для вывода всех гласных буквы, которые входят хотя бы в одно слово более двух раз Борис65 Фриланс 5 07.06.2017 12:02
[Pascal] Дан текст со словами из строчных русских букв. Составить программу, для вывода всех гласных буквы, которые входят хотя бы в одно слово более двух раз Борис65 Помощь студентам 9 07.06.2017 11:08
Вывести те элементы списка которые повторяются один раз(Cи) Genome Помощь студентам 0 22.06.2016 21:41
Удалить из массива все элементы встречающиеся более двух раз. dimok5 Помощь студентам 0 15.03.2012 16:28