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

Спасибо большое