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.