Лабораторная работа: Алгоритмические языки: использование множеств

a:array[1..max] of bin;

len:maxlen;

Procedure Vvod(Var a: array of bin;Var len:maxlen);

Var

x:maxlen;

begin

Write('Введите длинну последовательности: ');

Readln(len);

Writeln('Введите элементы последовательности: ');

for x:= 1 to len do

Begin

Write('a[',x,']=');

Readln(a[x]);

End;

End;

Procedure Code(a:array of bin;len:maxlen);

Var

x:maxlen;

b:array[1..max_bin] of byte;

Begin

for x:=1 to max_bin do b[x]:=0;

for x:=1 to len do inc(b[a[x]]);

for x:=1 to max_bin do if b[x]=2 then

Begin

Writeln('Число ',x,' повторяется ровно два раза');

End;

End;

Procedure Code2(a:array of bin;len:maxlen);

Var