WRITELN('NO')

ELSE

BEGIN

WRITELN('ELEMENTI');

FOR I:=1 TO K DO

writeln(B[I]);

WRITELN('HOMEPA');

FOR I:=1 TO K DO

writeln(C[I]);

end;

readln;

readln;

End.

Дан одномерный массив "A".

Вводится дополнительный массив "B" разрешенных значений.

Определить сколько элементов исходного массива "A" имеют неразрешенные значения

program p28;

const n=5; m=3;

Var

A:array[1..n] of integer;

B:array[1..m] of integer;

I,k,J,F:integer;

Begin

writeln('massiv A');

for i:=1 to n do

read(A[i]);

writeln('massiv B');

for i:=1 to M do

read(B[i]);

k:=0;

for I:=1 to n do

BEGIN

F:=0;

for J:=1 to M do

IF A[I]=B[J] THEN

F:=1;

IF F=0 THEN

K:=K+1;

END;

WRITE(K);

readln;

readln;

End.

Дан одномерный массив "A".

Вводится дополнительный массив "B" разрешенных значений.

Составить вектор "C"из элементов массива "A", имеющих неразрешенные значения

program p29;

const n=5; m=3;

Var

A,C:array[1..n] of integer;

B:array[1..m] of integer;

I,k,J,F:integer;

Begin

writeln('massiv A');

for i:=1 to n do

read(A[i]);

writeln('massiv B');

for i:=1 to M do

read(B[i]);

k:=0;

for I:=1 to n do

BEGIN

F:=0;

for J:=1 to M do

IF A[I]=B[J] THEN

F:=1;

IF F=0 THEN

BEGIN

K:=K+1;

C[K]:=A[I];

END;

END;

IF K=0 THEN

WRITELN('NO')

ELSE

FOR I:=1 TO K DO

WRITELN(C[I]);

readln;

readln;

End.

Дан одномерный массив "A".

Переписать элементы вектора "A"в обратном порядке

на том же месте (перевернуть массив "A" без использования дополнительного массива)

program p30;

const n=5;

Var

A:array[1..n] of integer;

I,J,B:integer;

Begin

writeln('vvod massiva A');

for i:=1 to n do

read(A[i]);

for I:=1 to n div 2 do

BEGIN

B:=A[I];

A[I]:=A[N-I+1];

A[N-I+1]:=B;

END;

wRITELN('VIVOD MASSIVA A');

FOR I:=1 TO N DO

WRITELN(A[I]);

readln;

readln;

End.

Дан одномерный массив "A".

Составить массив "B"из различных (не повторяющихся) элементов исходного массива "A" .

program p31;

const n=5;

Var

A,B:array[1..n] of integer;

I,J,K,F:integer;

Begin

writeln('vvod massiva A');

for i:=1 to n do

read(A[i]);

K:=0;

for I:=1 to n do

BEGIN

F:=0;

for j:=1 to n do

if (A[I]=A[J]) AND (I<>J) THEN

F:=1;

IF F=0 THEN

BEGIN

K:=K+1;

B[K]:=A[I];

END;

END;

IF K=0 THEN