ПОМОГИТЕ ПОЖАЛУЙСТА!!! СРОЧНО!! Заполните случайными числами в диапазоне от 1 до 5 два массива А [1..10]и B [1..10], затем выведите их на экран. Найдите те элементы массивов, которые попарно совпадают (например, А[2] и В[2]) и выведите сведения о них. Если совпадений нет – следует проинформировать об этом пользователя.
var i,j:integer; c:array[1..10] of integer; b:array[1..10] of integer; begin randomize; cls; for i:=1 to 10 do begin c:=random(7)+1; b:=random(7)+1; end; for i:=1 to 10 do write(c,' '); writeln; for i:=1 to 10 do write(b,' '); writeln; for i:=1 to 10 do begin if (c=b) then write(c, ' povtor '); end; end.
