1 / 1 / 1
Регистрация: 28.06.2011
Сообщений: 42
1

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

29.06.2011, 14:33. Показов 1680. Ответов 2
Метки нет (Все метки)

Дан одномерный массив из 10 целых чисел. Подсчитайте наибольшее число одинаковых идущих подряд в нем чисел.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2011, 14:33
Ответы с готовыми решениями:

Найти наибольшее количество одинаковых элементов массива А, идущих подряд
Помогите пожалуйста неучу! :-| Задание таково: Найти наибольшее количество одинаковых элементов...

Дан текст. Найти наибольшее количество идущих подряд одинаковых символов
Дан текст. Найти наибольшее количество идущих подряд одинаковых символов

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

Наибольшее число подряд идущих элементов
Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее...

2
Почетный модератор
64230 / 47532 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
30.06.2011, 14:01 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,k,j,max:integer;
begin
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
max:=0;
i:=2;
while i<=n do
if a[i]=a[i-1] then
  begin
   k:=1;j:=i;
   while (j<=n)and(a[j]=a[j-1]) do
    begin
     k:=k+1;
     j:=j+1;
    end;
   if k>max then
    begin
     max:=k;
     k:=1;
    end;
   i:=i+k;
  end
else i:=i+1;
writeln('Наибольшее число одинаковых подряд=',max);
end.
1
1 / 1 / 1
Регистрация: 28.06.2011
Сообщений: 42
03.07.2011, 10:30  [ТС] 3
СПС
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 10:30
Помогаю со студенческими работами здесь

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

Найти наибольшее количество цифр, идущих подряд
Привет всем такая проблема есть код но не знаю где в нём ошибка помогите пожалуйста uses crt;...

Переписав в начало массива группу, содержащую наибольшее число подряд идущих положительных элементов
Скорректировать массив A=(a1, а2, ..., аn), переписав в начало массива группу, содержащую ...

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


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

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

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