Одномерные массивы

[Ivka]

Помогите пожалуйста...Задание с одномерными массивами...
Массив(10 элементов(числа)), надо вывести те элементы, которые повторяются...

[Alex11223]

Можно вложенными циклами.

for i:=1 to 10 do
    for k:=1 to 10 do
         if (m[i] = m[k]) and (i <> k) then вывести этот элемент;

[unbanned]

  for j := 1 to 10 do 
  begin
    f := false;
    for i := 1 to 10 do
      if (x[i] = x[j]) and (i <> j) then 
      begin
        f := true; 
        break; 
      end;
    if f then writeln(x[j]);
  end;

[Ivka]

Спасибо...мне с циклами и надо, только я сама похоже пробовала,
и не выходит. (n - const=10)

for i:=1 to n do begin
write('Vvedi masiv===> ');
readln(A[i]);
end;
for i:=1 to n do
for j:=1 to n do
If (A[i]=B[j]) then
writeln('Povtarjajutsja===> ',B[j]:0:0);
readln;
end.

[Alex11223]

А зачем downto вместо to во втором?) Кроме A[i] = B[j] надо проверять, что i <> j , иначе просто весь массив выведет.

[Ivka]

Спасибо, всё поняла...пошла программа...

[Alex11223]

И массива B у вас нету или вы о нем ничего не рассказали)

[Mad_Cat]

и попробуйте ввести 3 3 5 5 2 1 и выведет столько раз число сколько оно повторяется то есть 3 3 5 5 ) а вывести должно по идее только 3 5 )

[Alex11223]

3 3 5 5 2 1 как раз нормально должно вывести. Вот если 3 3 3 5 5 2 1, то да, выведет 3 3 5 )

[Mad_Cat]

а если 3 3 6 7 6 7 3 3 3 то 3 буит выше крыши что не есть good