0 / 0 / 0
Регистрация: 06.05.2015
Сообщений: 13
1

Подсчитать количество одинаковых чисел массива, идущих подряд

23.05.2015, 07:21. Показов 856. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program qwe;
const
 n=20;
 var
 arr: array [1..n] of integer;
 i:integer;
 count:byte;
 begin
 randomize;
 for i:=1 to n do begin 
 arr[i]:= -25+random(50);
 write (arr[i]:4);
 end;
 writeln;
 count:=0;
 for i:=1 to n do
 if arr[i] = arr[i+1] then  
 count := count+1;
 writeln (count);
 exit;
 end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2015, 07:21
Ответы с готовыми решениями:

Определить длину самой длинной цепочки идущих подряд одинаковых чисел
в файле в столбик записаны целые числа, сколько их-неизвестно. Напишите программу, которая...

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле
2)Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле input1.txt . Количество...

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих чисел одного знака
Дана непустая последовательность не нулевых целых чисел, за которой следует 0: Определить...

Подсчитать наибольшее число идущих в массиве подряд одинаковых элементов
4) Имя входного файла: z571.in Имя выходного файла: z571.out Дана целочисленная таблица A....

1
Почетный модератор
64230 / 47532 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
23.05.2015, 08:12 2
Pascal
1
2
count:=0;
 for i:=1 to n-1 do
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2015, 08:12
Помогаю со студенческими работами здесь

Целочисленный массив 1:100, подсчитать наибольшее число идущих в ней подряд одинаковых элементов
И еще одна...Упорядоченный по невозрастанию массив преобразовать в упорядоченный по...

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд
В файле data.txt записаны числа, сколько их – неизвестно. Найти длину самой длинной цепочки...

Подсчитать максимальное количество подряд идущих совпадающих элементов
2. Опишите на русском языке или одном из языков программирования алгоритм подсчета максимального...

Ввести текст и подсчитать наибольшее количество идущих подряд пробелов
Ввести текст и подсчитать наибольшее количество идущих подряд пробелов


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru