Пассскалььь
Заполните массив случайными числами. Определить есть ли в нём элементы с одинаковыми значениями, не обязательно стоящие рядом.
пример
массив:
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.