Вопрос задан 11.02.2021 в 17:39. Предмет Информатика. Спрашивает Васильев Евгений.

Уровень B. Заполните массив случайными числами в интервале [0,5]. Определить, есть ли в нем

элементы с одинаковыми значениями, стоящие рядом. Пример: Массив: 1 2 3 3 2 1 Есть: 3 Пример: Массив: 1 2 3 4 2 1 Нет
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Гаврилова Танюша.
Program n1;
const n=6;
var a,i: integer;
m:array [1..n] of integer;
begin
randomize;
write('иcходный массив:');
for i:=1 to n do
begin
m[i]:=random(6);
write(m[i],' ');
end;
writeln;
a:=0;
for i:=1 to n-1 do
begin
if m[i]=m[i+1]
then begin
if a=0
then begin
write('есть: ');
a:=1;
end;
write(m[i],' ');
end;
end;
if a=0
then writeln('нет');
end.
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для решения этой задачи вам понадобится сгенерировать массив случайных чисел и проверить, есть ли в нем рядом стоящие элементы с одинаковыми значениями. Вот пример решения на языке Python:

python
import random array = [random.randint(0, 5) for _ in range(10)] # Генерируем массив из 10 случайных чисел в интервале [0, 5] print("Массив:", array) has_duplicates = False for i in range(len(array) - 1): if array[i] == array[i + 1]: has_duplicates = True break if has_duplicates: print("Есть повторяющиеся элементы") else: print("Нет повторяющихся элементов")

В этом примере мы используем функцию random.randint(0, 5) для генерации случайных чисел в интервале [0, 5]. Затем мы проходим по массиву и сравниваем каждый элемент с его следующим соседним элементом. Если мы находим два рядом стоящих элемента с одинаковыми значениями, мы устанавливаем флаг has_duplicates в значение True и выходим из цикла. После этого мы проверяем значение флага has_duplicates и выводим соответствующее сообщение.

0 0

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

Последние заданные вопросы в категории Информатика

Задать вопрос