Вопрос задан 13.02.2021 в 00:44. Предмет Информатика. Спрашивает Костикова Лиза.

Заполните массив случайными числами в интервале [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 def has_duplicate(nums): for i in range(len(nums) - 1): if nums[i] == nums[i+1]: return True return False # Создаем массив случайных чисел в интервале [0, 5] array = [random.randint(0, 5) for _ in range(10)] # Выводим массив print("Массив:", ' '.join(map(str, array))) # Проверяем наличие повторяющихся элементов if has_duplicate(array): print("Есть повторяющиеся элементы") else: print("Нет повторяющихся элементов")

В этом коде мы используем функцию has_duplicate, которая принимает массив чисел и проверяет, есть ли в нем повторяющиеся элементы, стоящие рядом. Если такие элементы найдены, функция возвращает True, иначе - False. Затем мы создаем массив случайных чисел в интервале [0, 5] и проверяем его с помощью этой функции. Результат выводится на экран.

Вы можете изменить размер массива, изменив значение range в выражении range(10), чтобы получить больше или меньше случайных чисел.

0 0

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

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

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