Обработка массивов. Власенко О.Ф - 24 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

{Подсчитать, сколько элементов массива А совпадают с элементами
массива В}
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 поодиночке}
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;

Страницы