Заполните массив случайными числами. определить есть ли в нём элементы с одинаковыми значениями, не обязательно стоящие рядом. пример массив: 3 2 1 3 2 5 есть: 3,2 пример массив: 3 2 1 4 0 5 нет

Var  ar: array[1..10000]of integer;   ms: array[1..10000]of integer;   i, c, n, j, p: integer;   b: boolean; begin   randomize;   b : = true;   c : = 1;   write('введите количество элементов массива: ');   read(n);   writeln('массив: ');   for i : = 1 to n do ms[i] : = -2147483648;   for i : = 1 to n do begin ar[i] : = random(11);   write(ar[i], ' '); end;     for i : = 1 to n do     for j : = i + 1 to n do     begin       if (ar[i] = ar[j]) then         begin         for p : = 1 to c do             if (ar[i] = ms[p]) then b : = false;             if (b = true) then begin ms[c] : = ar[i];   c : = c + 1; end;         end;       b : = true;     end;   writeln;   if (c = 1) then write('нет')     else    begin     write('есть: ');     for i : = 1 to c - 1 do   if(i < > c - 1)  then write(ms[i], ',')   else write(ms[i]);   end; end.

всего цветов: 7цветов

значит 7*3=21

3^i = 18

i = 3

ответ. 3 лампочки.