Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]
Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если A[2] = B[2] = 4, то на экран надо вывести:
Номер: 2 значение: 4
Если таких совпадений нет, то выведите на экран сообщение об этом.
program zad_5_nica;
var A: array[1..20] of integer;
B: array[1..20] of integer;
i, sovp: integer;
begin
randomize;
{Заполнение массива случайными числами и вывод их на экран}
for i:=1 to 20 do begin
A[i]:=1+random(5);
B[i]:=1+random(5);
end;
{Поиск и вывод совпадающих элементов этих массивов}
sovp:=0;
for i:=1 to 20 do begin
if A[i]=B[i] then begin
writeln ('Номер: ', i, ' Значение: ', A[i]);
sovp:=1;
end;
end;
{Вывод сообщения, если совпадений не нашлось}
if sovp=0 then writeln ('Увы, совпадений нет:(')
end.