Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Shurikoff1
26.08.2021 01:34 •
Информатика
Нужно задать массив целых чисел. вывести на экран только те значения элементов массива, которые встречаются в нем более одного раза, при этом каждое найденное значение должно быть распечатано столько раз, сколько оно встречается.
Показать ответ
Ответ:
paul1905
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 оценок)
Ответ:
mareta340
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 оценок)
Популярные вопросы: Информатика
darkhun
12.10.2021 06:08
Спрайт сөзіне сөзжұмбақ...
kusrik
03.12.2022 12:04
Надо выполнить только задания в лабораторной работе№11(остальное делать не надо) Сделайте как можно быстрее СКАЧАВ ФАЙЛИК!...
Kikimora16
17.03.2022 12:36
Осыған көмектеріңіз керек. берем ...
егор1481
12.05.2021 06:11
Яку масу тристеарину необхідно, щоб добути гліцерин масою 4,6 г а) 8,9 б) 17,8 г) 35 в) 44,5...
Gollagan
12.05.2021 06:11
В како году начали делать укрошения из драг метала в казахстане...
vladvoroxov
05.08.2020 13:53
Яке походження найбільших островів тихого океану...
Maksander
20.06.2020 00:55
Условие задания:Радиус шара равен 19,6см, значение числа п=3, 14,определи объём этого шпрп (окончательный результат округли и с точностью до, десятых),...
McGravii
20.06.2020 00:55
Решите тест ссоры). 2. I cannot this rule. 3. Do you easily stories? 4. Complete the question tags. 1) Rose is cleaning out the pond, ? 2) Andy has been reading a book...
kmvkemerovo
05.08.2020 13:53
Прочитайте текст и выполните задания (1)Давным-давно, когда ещё нигде не существовало печатных станков и машин, книги ценились очень дорого. (2) Люди сидели и (по)печатному,...
foorsik
09.09.2022 14:27
Визначте послідовність основних подій розвитку життя на Землі : А виникнення багатоклітинних рослин; Б поява процесу фотосинтезу ; В панування насінних папоротей; Г утворення...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.