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

0 голосов
48 просмотров

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


Информатика (15 баллов) | 48 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(53.1k баллов)