найти сколько элементов одномерного массива А встречаются в одномерном массиве В паскаль

Question

Информатика

Аверьян

2 сентября, 08:15

найти сколько элементов одномерного массива А встречаются в одномерном массиве В паскаль

+1

Ответы (1)

Знаете ответ?

Фёдор · Answer 1

var a, b:array [1 ... 100] of integer;

an, bn, i, j, n:integer;

Begin

read (an, bn) ;

for i: = 1 to an do

read (a[i]) ;

for i: = 1 to bn do

read (b[i]) ;

for i: = 1 to an do

for j: = 1 to bn do

if a[i]=b[j] then n:=n+1;

writeln (n) ;

End.