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

Question

Информатика

Петряка

15 октября, 08:46

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

+2

Ответы (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.