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