Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Anastasia15Kovaleva
17.06.2021 01:57 •
Информатика
Дан целочисленный массив из 30 элементов. найти, сколько в нём пар одинаковых соседних элементов. на с++,
Ответ:
1delicious1apple
28.07.2020 21:29
#include <iostream>
using namespace std;
#define N 30
int main(int argc, char* argv[])
{
setlocale(LC_ALL, "Russian");
int a[N];
int k = 0;
for(int i=0;i<N;i++)
{
cout<<"a["<<i+1<<"]=";
cin>>a[i];
}
for(int i=1;i<N;i++)
if(a[i]==a[i-1])
k++;
cout<<k<<"пар"<<endl;
system("pause");
}
0,0
(0 оценок)
Популярные вопросы: Информатика
bestway555
13.05.2022 17:20
Pascal, убрать нули из массива вот код, он генерирует случайные числа и распределяет по массивам, в массив B-положительные, а в массив С-отрицательные. Но появилась проблема,...
zverrodion199911
21.01.2023 01:03
Dct = { a : 1, b : 2, c : 3, d : 4, e :5}Написать функцию-генератор...
Liza6789456
05.01.2021 01:04
Напишите название алгоритма, состоящего из последовательности действий, выполняемых только один раз друг за другом....
Vladimirmir28
18.02.2021 19:24
Скорость передачи данных 1024000бит/с. передача файла заняла 5 секунд. определить размер файла в килобайтах....
Ilyapopovsky10001
20.04.2020 15:54
написать программу в ABCPascal дано трехзначное число, найти и вывести его вторую цифру...
angel32b
03.06.2023 03:11
древнеримский философ и драматург, открывший для мировой литературы жанр трагедии для чтения...
зара1010101
26.05.2020 08:27
1. Мужские гаметы образуются:A. В предстательной железеБ. В семенникахB. В семявыносящих протоках 2. Женские гаметы образуются:А. В маточных трубахБ. В маткеВ. В яичниках3....
Соняllik
06.06.2022 13:33
Аныктамасын жаз? экожүйе,биоценоз,биогеоценоз...
светлана110379
13.06.2022 13:58
Что привело к возникновению в современной публицистике и политическом языке понятия «лихие 90-е»?...
nikitagarin2
24.03.2023 11:53
1. Броунівський рух це……. 2. на поверхню води впала крапля олії і розтиклась, утворивши тонку плівку. За до цього досліду можна оцінити: а) швидкість руху молекул води б)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
using namespace std;
#define N 30
int main(int argc, char* argv[])
{
setlocale(LC_ALL, "Russian");
int a[N];
int k = 0;
for(int i=0;i<N;i++)
{
cout<<"a["<<i+1<<"]=";
cin>>a[i];
}
for(int i=1;i<N;i++)
if(a[i]==a[i-1])
k++;
cout<<k<<"пар"<<endl;
system("pause");
}