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

UptoLike

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

Рубрика:

5. Сравнить i-й элемент массива А со всеми элементами

массива В.

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

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

7. Вывести количество совпадений.

Текст программы:

{Подсчитать, сколько элементов массива А совпадают с элементами массива В}

Program TwoArrayExample;

Const

maxN = 20; {Максимальное количество элементов массива}

Type

IndexEl = 1 .. maxN; {Индексы массива лежат в интервале

от 1 до maxN}

arrInt = array[IndexEl] of integer; {Массив целых чисел,

содержащий до maxN элементов}

Var

a, b: arrInt; {Массивы A и B}

n : integer; {Количество элементов массива A}

m : integer; {Количество элементов массива B}

i, j : IndexEl; {Переменные для сканирования массивов}

cnt : integer; {Количество совпадений элементов A

с элементами B}

k: integer; {Количество совпадений элемента A[i]

с элементами B}

Begin

{1 – ввод массива A}

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

repeat

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

readln(n);

until ( n >= 1 ) and ( n <= maxN ); {Выйдем из цикла лишь

тогда, когда n будет принадлежать интервалу [1..maxN]}

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