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
WRITELN('NO')
ELSE
wRITELN('vivod massiva B');
FOR I:=1 TO K DO
WRITELN(B[I]);
readln;
readln;
end.
Дан одномерный массив "A".
Составить массив "B"из номеров различных (не повторяющихся) элементов исходного массива "A" .
program p32;
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]:=I;
END;
END;
IF K=0 THEN
WRITELN('NO')
ELSE
wRITELN('vivod massiva B');
FOR I:=1 TO K DO
WRITELN(B[I]);
readln;
readln;
end.