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

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.