Ответы на вопрос:
Dim a(100) as integer, odin as boolean dim k as integer , i as integer randomize for i = 1 to 100 a(i) = int(rnd*100) + 1 ' заполняем массив случайными числами от 1 до 100 print a(i) & chr(9); ' выводим начальный массив через табуляцию next i print "повторяющиеся элементы" for i = 1 to 100 for k = i+1 to 100 if a(i) = a(k) then print a(i) & chr(9); next k next i print "не повторяющиеся элементы" for i = 1 to 100 odin = true for k = i+1 to 100 if a(i) = a(k) then odin = false next k if odin = true then print a(i) & chr(9); next i end
Популярно: Информатика
-
Агааемгов06.12.2020 18:09
-
AvgustinaQueen19.04.2023 05:44
-
mammedova7525.02.2023 19:06
-
DISTANOV24.04.2021 02:08
-
56895411.08.2020 15:19
-
nikitos13372822.10.2022 18:56
-
hgjgz8s8tztcv24.05.2020 05:03
-
Regina1357916.10.2020 15:33
-
inlivemulorada22.06.2023 05:36
-
Vladimirr190501.03.2020 12:36