Цитата:
Сообщение от scald
Вводится длина одномерного массива (вектора) и значения его элементов.
Вводится дополнительный массив разрешенных значений. Определить и вывести на экран, сколько элементов исходного массива имеют разрешенные значения.
|
Код:
VAR
A,P:ARRAY[1..20] of WORD;
Na,Np,Nap,i,j:INTEGER;
BEGIN
Write('Enter the number of elements in the main array: ');
ReadLn(Na);
WriteLn('Enter the integer positive values of main array:');
For i:=1 to Na do
begin
Write('A[',i,']= ');
ReadLn(A[i]);
end;
Write('Enter the number of permitted values: ');
ReadLn(Np);
WriteLn('Enter the permitted values:');
For i:=1 to Np do
begin
Write('P[',i,']= ');
ReadLn(P[i]);
end;
Nap:=0;
For i:=1 to Na do
For j:=1 to Np do
If A[i]=P[j] then INC(Nap);
WriteLn('The array contains ',Nap,' permitted values');
ReadLn;
END.