Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20]....

Question

Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2]=В[2]=4,то на экран надо вывести: Номер: 2 значение: 4.Если таких совпадений нет, то выведите на экран сообщение об этом.

Answer 1

Var  a, b :array [1..20] of integer;  i :integer;  f :boolean;
begin
  randomize;  for i:= 1 to 20 do  begin    a[i]:= random(5);    b[i]:= random(5);  end;  f:= false;  for i:= 1 to 20 do    if a[i] = b[i] then    begin      f:= true;      writeln('Номер: ',i,' значение: ',a[i]);    end;  if f = false then    writeln('Совпадающих элементов нет!');
end.