
Вопрос задан 13.02.2021 в 00:44.
Предмет Информатика.
Спрашивает Костикова Лиза.
Заполните массив случайными числами в интервале [0,5]. Определить, есть ли в нем элементы с
одинаковыми значениями, стоящие рядом. Пример: Массив: 1 2 3 3 2 1 Есть: 3 Пример: Массив: 1 2 3 4 2 1 Нет

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

Отвечает Иванов Иван.
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.
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.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Хорошо! Чтобы решить эту задачу, я могу предложить вам следующий код на языке Python:
pythonimport 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)
, чтобы получить больше или меньше случайных чисел.


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

Информатика 47

Информатика 33

Информатика 67

Информатика 18

Информатика 25

Информатика 563

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