Поиск результатов по фразе "заполните случайными числами диапозоне от 1 до 5 два массива...

Question

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

Answer 1

Program gt;
var a,b:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do
a[i]:=random(100)-50;
for i:=1 to 5 do
b[i]:=random(100)-50;
for i:=1 to 5 do
begin
if(a[i]=b[i])then writeln(i,' ',a[i]);
end;
end.