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

Question

Информатика

Сильвия

4 ноября, 08:38

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

+5

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