Question

Чему будет равно значение переменной q после выполнения алгоритма при n=20, X={2;6;6;6;8;9;10;5;4;4;8;2;5;5;6;6;4;9;8;10}?

Answer 1

Не уверен, что составил правильно программу, но ответ выдало такой:
0 1 1 2 3 4 4 5 6 7 7 7 7 7 7 7 7 7 7 7;
Программа:
Program z2;Varn,q,i:integer;X,M:array[1..20] of integer;beginn:=20;X[1]:=2;X[2]:=6;X[3]:=6;X[4]:=6;X[5]:=8;X[6]:=9;X[7]:=10;X[8]:=5;X[9]:=4;X[10]:=4;X[11]:=8;X[12]:=2;X[13]:=5;X[14]:=5;X[15]:=6;X[16]:=6;X[17]:=4;X[18]:=9;X[19]:=8;X[20]:=10;for i:=1 to n dobeginM[i]:=0;q:=0;end;for i:= 1 to n dobeginM[X[i]]:=M[X[i]]+1;end;for i:=1 to n dobeginif (M[i]>1) thenq:=q+1;writeln(q);end;end.
(Массивы ещё не проходил, так что не уверен)