Основы программирования на языке Turbo Pascal. Беляева И.В. - 36 стр.

UptoLike

Составители:

Рубрика:

for I := 1 to n do

begin

write('a[', i, ']');

readln(a[i]);

end;

{2 – ввод массива B}

{ Ввод количества элементов}

repeat

write('Введите m:');

readln(m);

until (m >= 1) and (m <= maxN);

{ Ввод элементов массива B поодиночке}

for I := 1 to m do

begin

write('b[', i, ']');

readln(b[i]);

end;

{3 – счетчик повторений обнуляем}

cnt := 0;

{4 – проходим по всем элементам массива A}

for I := 1 to n do

begin

{5 – сравниваем i-й элемент массива А со всеми

элементами массива В}

k := 0; {k – количество совпадений i-го элемента массива A

с элементами массива В}

{Считаем количество совпадений A[i] с элементами

массива B}

for j := 1 to m do

if A[i] = B[j] then Inc(k);

{6 – если А[i] совпадает хотя бы с одним элементом массива B,

счетчик повторений увеличить на 1}