Дан массив чисел.Найти,сколько в нем пар одинаковых соседних элементов

@Растаман · Регистрация: 25.11.2011

Author24 — интернет-сервис помощи студентам

8.34 Дан массив чисел.Найти,сколько в нем пар одинаковых соседних элементов.

magirus · 25.11.2011, 00:57

Комментарий модератора

именуйте темы согласно правилам форума

@КонецСвета · 25.11.2011, 01:13

Pascal

uses crt;
var a:array [1..100] of integer;
    i,n,k: integer;
begin
writeln('Razmer massiva=');
readln(n);
writeln('Dan massiv');
for i:=1 to n do
    begin
    a[i]:=random(10);
    write(a[i],' ');
    if (i>1) and (a[i-1]=a[i]) then inc(k);
    end;
writeln;
writeln('Kol-vo par=',k);
end.

@Растаман · 25.11.2011, 01:37 **[ТС]**

Большое вам спасибо!Вы мне очень помогли!

Добавлено через 1 минуту
Вот ещё задачи.
8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива.
6.2 По введенному номеру месяца определить, названия месяца.
6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K.
(Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1|нечетными 2 индексами,а затем с нечетными 1|четными2.
(строки).-> 1. Дана строка '127+578'.решить пример.
2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла.

Добавлено через 5 минут
8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива.
6.2 По введенному номеру месяца определить, названия месяца.
6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K.
(Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1|нечетными 2 индексами,а затем с нечетными 1|четными2.
(строки).-> 1. Дана строка '127+578'.решить пример.
2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла.

@log(n) · 25.11.2011, 01:39

Сообщение от Растаман

Большое вам спасибо!Вы мне очень помогли!

Добавлено через 1 минуту
Вот ещё задачи.
8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива.
6.2 По введенному номеру месяца определить, названия месяца.
6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K.
(Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1|нечетными 2 индексами,а затем с нечетными 1|четными2.
(строки).-> 1. Дана строка '127+578'.решить пример.
2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла.

Добавлено через 5 минут
8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива.
6.2 По введенному номеру месяца определить, названия месяца.
6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K.
(Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1|нечетными 2 индексами,а затем с нечетными 1|четными2.
(строки).-> 1. Дана строка '127+578'.решить пример.
2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла.

https://www.cyberforum.ru/announcement.php?a=3

п. 3.15

@Растаман 0 / 0 / 0 Регистрация: 25.11.2011 Сообщений: 9
		1
	Дан массив чисел.Найти,сколько в нем пар одинаковых соседних элементов 25.11.2011, 00:55. Показов 14856. Ответов 4 Метки нет (Все метки) 8.34 Дан массив чисел.Найти,сколько в нем пар одинаковых соседних элементов. 0

@Растаман 0 / 0 / 0 Регистрация: 25.11.2011 Сообщений: 9
	25.11.2011, 01:37 [ТС]	4
	Большое вам спасибо!Вы мне очень помогли! Добавлено через 1 минуту Вот ещё задачи. 8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива. 6.2 По введенному номеру месяца определить, названия месяца. 6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K. (Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1\|нечетными 2 индексами,а затем с нечетными 1\|четными2. (строки).-> 1. Дана строка '127+578'.решить пример. 2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла. Добавлено через 5 минут 8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива. 6.2 По введенному номеру месяца определить, названия месяца. 6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K. (Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1\|нечетными 2 индексами,а затем с нечетными 1\|четными2. (строки).-> 1. Дана строка '127+578'.решить пример. 2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла. 0

@log(n) 110 / 110 / 72 Регистрация: 13.10.2011 Сообщений: 227
	25.11.2011, 01:39	5
	Сообщение от Растаман Большое вам спасибо!Вы мне очень помогли! Добавлено через 1 минуту Вот ещё задачи. 8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива. 6.2 По введенному номеру месяца определить, названия месяца. 6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K. (Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1\|нечетными 2 индексами,а затем с нечетными 1\|четными2. (строки).-> 1. Дана строка '127+578'.решить пример. 2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла. Добавлено через 5 минут 8.2 Дан действительный массив A(n).Найти максимальный и минимальный элементы массива. 6.2 По введенному номеру месяца определить, названия месяца. 6.16 По окончанию массового забега все его участники уложили свои наградные номера в один ряд в том порядке,в том порядке в коком они пересекли финишную черту,образов в результате K- значное число.Требует определить n(n<100)-количество участников забега по известному K. (Одномерный массив).-> Дан массив размера N.Вывести в начале его элементы с четными 1\|нечетными 2 индексами,а затем с нечетными 1\|четными2. (строки).-> 1. Дана строка '127+578'.решить пример. 2.Дано слово.Переставить первые три и последние три буквы,сохранив порядок их следования.Задачу решить двумя способами :а)без использования оператора цикла б)с использованием оператора цикла. https://www.cyberforum.ru/announcement.php?a=3 п. 3.15 0