Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
misi2
26.04.2023 20:50 •
Информатика
Вводится число n, а затем - n чисел. определить, сколько среди них пар одинаковых чисел. 2< =n< =100. на паскале
Показать ответ
Ответ:
Ростик22812312
03.10.2020 04:06
var
i, j, n, s: integer;
a: array[1..100] of integer;
begin
read(n);
for i := 1 to n do read(a[i]);
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] = a[j] then inc(s);
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Forkier
13.09.2020 18:56
заполните диаграммы впишите в круг различных черты цифры и аналоговых технологий от пересекающие пространствах и общие черты...
and290620041
31.10.2022 17:54
мне нужно сдать тест по информатике...
altinbex
15.04.2022 02:35
Как называется самый главный, обязательно присутствующий на диске, автоматически создаваемый каталог?...
katyastrilchuk
15.04.2022 02:35
Всостав каких систем входит система компьютер ? назовите надсистему для объекта принтер...
Якино
03.12.2022 23:09
Как переделать презентацию power point 2003 в power point 2007...
89051330939
26.12.2021 09:25
Выполните операцию сложения над двоичными числами 101+110...
divinadd11
26.12.2021 09:25
Определить максимальное число (паскаль), а также алгоритм нахождения...
21марта
16.03.2023 19:08
решить все 4 задачи но последнюю не я её решил ...
MissRapunzel
16.03.2023 19:08
Индийскому языкознанию был характерен а)Философский подходб) эмпирический подходв)культурологический подход ...
timurqwerty
16.03.2023 19:08
68 бет 3 тапсырмасы сурет бойынша мәтін құрастыры мәтін кұрыстыр...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, j, n, s: integer;
a: array[1..100] of integer;
begin
read(n);
for i := 1 to n do read(a[i]);
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] = a[j] then inc(s);
write(s);
end.