Question

Заполните случайными числами в диапазоне от 1 до 10 два массива: А[1:10] и B[1:10]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2] = В[2] = 6, то на экран надо вывести: Номер: 2 значение: 6 Если таких совпадений нет, то вывести на экран сообщение об этом. В отчет включить тексты программ, реакции ЭВМ.

Answer 1

Ответ:

program proba1;

var a,b:array [1..10] of integer;

i,k:integer;

begin

write('Массив А: ');

for i:=1 to 10 do

begin

a[i]:=random(10);

write (a[i]:2)

end;

writeln;

write('Массив В: ');

for i:=1 to 10 do

begin

b[i]:=random(10);

write (b[i]:2)

end;

writeln;

k:=0;

for i:=1 to 10 do

if a[i]=b[i] then

begin

writeln('Номер: ',i,' значение: ',a[i]);

k:=k+1

end;

if k = 0 then write ('Совпадений нет')

end.

Объяснение:

Смотри картинки

Answer 2

Конечно! Вот пример программы на языке Python, которая решает задачу, описанную в вашем запросе:

pythonCopy code
import random

# Создание и заполнение массивов A и B случайными числами от 1 до 10
A = [random.randint(1, 10) for _ in range(10)]
B = [random.randint(1, 10) for _ in range(10)]

# Поиск и вывод совпадающих элементов
found_match = False
for i in range(10):
    if A[i] == B[i]:
        print(f"Номер: {i+1} значение: {A[i]}")
        found_match = True

# Вывод сообщения, если совпадений не найдено
if not found_match:
    print("Совпадений не найдено.")

Программа начинается с импорта модуля random, который позволяет генерировать случайные числа. Затем мы создаем и заполняем два массива A и B случайными числами от 1 до 10 с помощью генератора списка.

Затем мы проходимся по элементам массивов с помощью цикла for и проверяем, есть ли совпадение между соответствующими элементами. Если совпадение найдено, мы выводим номер элемента и его значение.

Если после проверки всех элементов совпадений не найдено, выводится сообщение "Совпадений не найдено."

Надеюсь, эта информация поможет вам! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать.