Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DashkaPypsik
04.11.2022 09:47 •
Информатика
Дан массив целых чисел, размерность которого n. подсчитать, сколько в нем разных элементов.
Показать ответ
Ответ:
Kvodan123
02.07.2020 11:20
Раз массив уже дан, то не стала писать программу ввода элементов, а так само вычисление кол-ва элементов вот:
Dim A(N)
T=0
For i= 1 to N-1
k=0
For j= i+1 to N
If A(i) = A(j) then k=k+1
Next j
if k≥1 then T=T+1
Next i
S = N - T
Print S
Вроде так
0,0
(0 оценок)
Популярные вопросы: Информатика
milanavornik
09.09.2022 01:34
РЕШИТЬ КРОССВОРД. Алгоритм, содержащий вс алгоритмы(8БУКВ)...
buldog228
05.06.2022 18:47
Что может быть добавлено к текстовому документу послевставки нового объекта типа «Microsoft Equation 3.0»?...
SoktoevTimur
08.06.2023 11:30
что это там надо каждый выбрать что это визуальня ,тактильная ,вкусовая,обаятельная,звуковая...
Tuchka087
17.10.2020 04:26
Создайте в MS Access или Open Office Base базу данных продуктового магазина, которая состоит минимум из двух таблиц. 1. Каждая таблица должна содержать не менее пяти полей...
giyosjjj
13.11.2022 03:37
Используя редактор баз данных, создайте базу данных «Чемпионат области по волейболу». Предусмотрите наличие 3 таблиц: команды, график игр, результаты. В каждой таблице задайте...
alinka57d
12.03.2022 14:46
Вопрос 1.ВПИШИТЕ НАЗВАНИЕ УКАЗАННОГО ЭЛЕМЕНТА ОКНА РЕДАКТОРА FLASH,...
egorkakraynov
08.07.2022 23:04
TikFans Check out the TikFans app!https://tikfansapp.page.link/h9cQ96VFu2HJq7LM7...
Danil7070
19.10.2021 04:25
Герои произведения и их значимость в произведении хисаметдин...
MirAZdd
19.10.2021 04:25
Якби на Землі не було океанів, то середня температура повітря була б нижчою (не +15 С, а -21 С). Отже, Світовий океан: a.утримує тепло в тропічних широтах, а холод - у полярних...
ududufivuv
29.01.2020 15:27
округлить последовательно до сотых долей десятых долей единиц десятков и сотен число 560.945 и 2194.8375...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Dim A(N)
T=0
For i= 1 to N-1
k=0
For j= i+1 to N
If A(i) = A(j) then k=k+1
Next j
if k≥1 then T=T+1
Next i
S = N - T
Print S
Вроде так