Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Elina1151
31.08.2021 15:19 •
Информатика
Нужно задать массив целых чисел. вывести на экран только те значения элементов массива, которые встречаются в нем более одного раза, при этом каждое найденное значение должно быть распечатано столько раз, сколько оно встречается.
Показать ответ
Ответ:
ВетаКлойзен54
09.07.2020 15:52
Решение этой задачи на языке С++# include <iostream># include <math.h># include <cmath>using namespace std;int main(){ int b,a[1001] , i = 0 , j = 1 , k = 0; while(cin>>b) { a[j] = b; i++; j++; } for(j = 2; j <= i; j++) { if(((a[j - 1] > 0) && (a[j] > 0))||((a[j - 1] < 0)&&(a[j] < 0))){ cout<<a[j-1]<<" "<<a[j]; return 0; } } return 0;}
0,0
(0 оценок)
Ответ:
Anastasiagoodnastia
09.07.2020 15:52
Program masof;
var ar: array of integer;
i, j, temp, N: integer;
begin
readln(N);
setlength(ar, N+1);
for i:=1 to N do begin readln(ar[i]); end;
for i:=1 to N do begin
temp:=0;
for j:=1 to N do begin if ar[j]=ar[i] then inc(temp); end;
if temp>1 then write(ar[i], ' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
гульнар20091
27.03.2022 11:33
Python Напишіть програму яка пропонувала б користувачеві вирішити приклад 4*100-54...
ychenik555555555
23.05.2020 19:33
Dooroopin 3. Дана ЭЦ по вариантам и необходимые параметры: R=R2=R3=20 Ом; R4=R5=R6=10 om ; E=4в; ro=2 om. Найти ток через резистор R4 и мощность рассеиваемую им...
sona272
20.01.2023 01:11
Создайте любые три множества, соответствующие картинке: сделать на питоне...
inakenyakakyevich
22.12.2020 17:26
Електронний документ, створений у текстовому редакторі, містить 560 символів. Чому доpівнює довжина його двійкового коду за використання таблиць кодування KОI-8? Розрахунки запишіть...
rjdfy
04.08.2020 08:59
• Что такое Blockchain? • История возникновения • Зачем нам нужна технология Blockchain? • Как она работает? • Что такое Данные? • Как мы можем защитить наши Данные? • Что такое...
margarinfox
11.10.2021 13:48
2.Выполните задание. Спишите отрывки из стихотворений. Найдите среди выделенныхвыражений инверсию....
31752
11.10.2021 13:48
Сделайте через 3 часа надо сдать!) Напишите не большое сочинение (7-12 предложений) на тему история о войне, поразившая меня . вы описываете саму истотрию (случай, эпизод, поступок...
Лессикаа
11.10.2021 13:48
История России, 9 класс, Ляшенко. Составить кроссворд по 8 главе из 20 во сетку для кроссворда не надо делать, этим я могу и сам заняться)....
yaantonio19
25.11.2021 03:12
Скласти формули до якого класу належать метанол ,пальмитинова кислота, крохмаль ...
myyyrrr
25.11.2021 03:12
Порівняйте життя римлян і варварів...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var ar: array of integer;
i, j, temp, N: integer;
begin
readln(N);
setlength(ar, N+1);
for i:=1 to N do begin readln(ar[i]); end;
for i:=1 to N do begin
temp:=0;
for j:=1 to N do begin if ar[j]=ar[i] then inc(temp); end;
if temp>1 then write(ar[i], ' ');
end;
end.