
1. Для данного массива установить наибольшую длину последовательности одинаковых элементов, которые
расположены рядом.

Ответы на вопрос

uses crt;
var a:array[1..11] of integer;
i,j,s,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do begin
a[i]:=random(5);
write(a[i]:4);
end;
s:=1; k:=0;
for i:=1 to 10 do begin
if a[i]=a[i+1] then s:=s+1;
if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end;
end;
writeln;
writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k);
end.
Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).



Для решения этой задачи можно воспользоваться простым алгоритмом прохода по массиву и подсчета длины текущей последовательности одинаковых элементов. При этом будем сохранять максимальную длину последовательности, которую мы находим в процессе обхода. Вот пример решения на языке Python:
```python def max_sequence_length(arr): current_length = 1 # текущая длина последовательности max_length = 1 # максимальная длина последовательности
for i in range(1, len(arr)): if arr[i] == arr[i - 1]: current_length += 1 else: current_length = 1
# обновляем максимальную длину, если текущая длина больше if current_length > max_length: max_length = current_length
return max_length
# Пример использования: arr = [1, 1, 2, 2, 2, 3, 4, 4, 4, 4, 5, 5, 5] result = max_sequence_length(arr) print("Наибольшая длина последовательности:", result) ```
В этом коде мы проходим по массиву, начиная с первого элемента. Если текущий элемент совпадает с предыдущим, увеличиваем текущую длину последовательности. Если элементы не совпадают, сбрасываем текущую длину обратно в 1. При этом на каждом шаге обновляем максимальную длину, если текущая длина превышает максимальную.
В данном примере для массива `[1, 1, 2, 2, 2, 3, 4, 4, 4, 4, 5, 5, 5]` ответ будет 4, так как максимальная длина последовательности одинаковых элементов (в данном случае, четверок) равна 4.


Топ вопросов за вчера в категории Информатика








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili