Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20].найдите и выведите на экран тoлько те элементы этих массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4
НА ЯЗЫКЕ ПАСКАЛЬ
Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20].найдите и выведите на экран тoлько те элементы этих массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4
НА ЯЗЫКЕ ПАСКАЛЬ
НА ЯЗЫКЕ ПАСКАЛЬ
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MatchingElements;
var
A, B: array[1..20] of integer;
i: integer;
begin
Randomize;
// Заполнение массивов случайными числами от 1 до 5
for i := 1 to 20 do
begin
A[i] := Random(5) + 1;
B[i] := Random(5) + 1;
end;
// Поиск и вывод совпадающих элементов
for i := 1 to 20 do
begin
if A[i] = B[i] then
writeln('Номер: ', i, ' значение: ', A[i]);
end;
end.