Задача на массив...

[Анастасия12]

Помогите написать программу.
Дано N чисел. Вывести числа встречающие более одного раза.

[Serge_Bliznykov]

два вложенных цикла.
первый от 1 до N-1
второй до I+1 до N
во вложенном цикле перебирать и сравнивать, если совпало A[i] = A[j] выводить A[i] и прерывать вложенный цикл.

такой простой подход позволит легко вывести все числа, встречающиеся в массиве более одного раза. НО! Числа будут выведены столько раз, сколько они встречаются.
Если хочется выводить число по одному разу, то в тот кусок кода, где нашли совпадение, нужно вставить ещё один цикл переборать числа от 1 до I-1. искать совпадение с A[i]. если ничего не нашлось - только в этом случае печатать найденное число.
(другими словами - число-дубликат должно быть найдено ПОСЛЕ текущего числа и не должно быть найдено ДО него же.. )

[Анастасия12]

Спасибо огромное, очень полезная для меня информация.
Извини пожалуйста что утруждаю тебя, но можешь написать эту задачу в Паскале. Если не сложно??

[zmey31313]

program zad;
var
  a : array[1..1000] of integer;
  k : array[0..9] of integer;
  n, i : integer;
begin
  writeln('Введите количество цифр: ');
  readln(n);

  for i := 1 to n do a[i] := random(10);
  
  for i := 1 to n do
    case a[i] of
      0 : k[0] := k[0] + 1;
      1 : k[1] := k[1] + 1;
      2 : k[2] := k[2] + 1;
      3 : k[3] := k[3] + 1;
      4 : k[4] := k[4] + 1;
      5 : k[5] := k[5] + 1;
      6 : k[6] := k[6] + 1;
      7 : k[7] := k[7] + 1;
      8 : k[8] := k[8] + 1;
      9 : k[9] := k[9] + 1;
    end;
    
  for i := 0 to 9 do
    If k[i] > 1 then writeln(k[i]);
end.

[Анастасия12]

Огромное спаисбо)

[tema12t]

Правильнее вот так:

 
program pr;
var
  a:array[1..100]of integer;
  n,i,j:byte;
begin
  writeln('Введите количество цифр: ');
  readln(n);
  for i:=1 to n do
   a[i]:=random(10);
  writeln('Введённые цифры: ');
  for i:=1 to n do
   write(' ',a[i]);
  writeln;
  writeln('числа встречающие более одного раза: ');
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if a[i]=a[j] then
    begin
     write(a[i],' ');
    break;
    end;
end.

[bonjovi]

Эта программа выведет ВСЕ повторяющиеся числа!(например, если число 2 встречается 5 раз, то программа и выведет его 5 раз). А как сделать, чтобы она выводила только 1 раз повторяющееся число?

[Alex11223]

Дык вроде бы написано как.
Еще есть такой вариант решения задачи если известен диапазон значений чисел в массиве, т.е. например в массиве генератором псевдослучайных чисел генерируются числа от 0 до 50: создаем другoй массив [0..50], заполняем его например нулями (по-моему в паскале и так заполняется либо есть функция fillchar, ну или самое простое просто циклом по всему массиву), проходим первый массив в цикле и элемент второго массива под номером = значению в первом массиве увеличиваем на единицу (т.е. b[a[i]] := b[a[i]] + 1). Потом проходим его и если значение элемента больше единицы, выводим его номер.

т.е. примерно так, код похожей задачи:

type
  TArr = array [1..10000] of integer;

var
  i, len, n, c: integer;
  a, numarr: TArr;

procedure ArrFill(var a: TArr; len, n: integer);
var
  i: integer;
begin
  for i := 1 to len do 
     a[i] := random(n) + 1;
end;

procedure ArrPrint(var a: TArr; len: integer);
var
  i: integer;
begin
  for i := 1 to len do 
    write(a[i], '  '); 
end;


begin
  randomize; 
  write('Введите размер массива (не больше 10000): '); readln(len);
  write('Введите диапазон чисел в массиве (не больше 10000): 1—'); readln(n);
  ArrFill(a, len, n);
  ArrPrint(a, len);
  writeln;

  for i:=1 to len do
     numarr[a[i]]:=1;
  
  c:=0;
  for i:=1 to n do
     if (numarr[i] = 1) then 
        inc(c);
  
  writeln('Количество различных элементов: ', c);
end.

[tema12t]

Сообщение от Alex11223

Дык вроде бы написано как.
Еще есть такой вариант решения задачи если известен диапазон значений чисел в массиве, т.е. например в массиве генератором псевдослучайных чисел генерируются числа от 0 до 50: создаем другoй массив [0..50], заполняем его например нулями (по-моему в паскале и так заполняется либо есть функция fillchar, ну или самое простое просто циклом по всему массиву), проходим первый массив в цикле и элемент второго массива под номером = значению в первом массиве увеличиваем на единицу (т.е. b[a[i]] := b[a[i]] + 1). Потом проходим его и если значение элемента больше единицы, выводим его номер.

т.е. примерно так, код похожей задачи:

type
  TArr = array [1..10000] of integer;

var
  i, len, n, c: integer;
  a, numarr: TArr;

procedure ArrFill(var a: TArr; len, n: integer);
var
  i: integer;
begin
  for i := 1 to len do 
     a[i] := random(n) + 1;
end;

procedure ArrPrint(var a: TArr; len: integer);
var
  i: integer;
begin
  for i := 1 to len do 
    write(a[i], '  '); 
end;


begin
  randomize; 
  write('Введите размер массива (не больше 10000): '); readln(len);
  write('Введите диапазон чисел в массиве (не больше 10000): 1—'); readln(n);
  ArrFill(a, len, n);
  ArrPrint(a, len);
  writeln;

  for i:=1 to len do
     numarr[a[i]]:=1;
  
  c:=0;
  for i:=1 to n do
     if (numarr[i] = 1) then 
        inc(c);
  
  writeln('Количество различных элементов: ', c);
end.

Можно проще но немного громоздко:

program pr;
const c=10;
var
  a:array[1..100]of integer;
  n,i,j:byte;e:integer;
begin
  writeln('Введите количество цифр: ');
  readln(n);
  for i:=1 to n do
  a[i]:=random(c);
  writeln('Введённые цифры: ');
  for i:=1 to n do
   write(' ',a[i]);
  writeln;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if a[i]>a[j] then
    begin
    e:=a[i];
    a[i]:=a[j];
    a[j]:=e
    end;
  writeln('числа встречающие более одного раза: ');
  e:=c+1;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if (a[i]=a[j])and(e<>a[j]) then
    begin
     e:=a[i];
     write(a[i],' ');
    break;
    end;
end.

[Serge_Bliznykov]

мда... а моим алгоритмом никто не захотел воспользоваться..
ладно. тогда ловите мой вариант решения этой простенькой задачки:

program pr;
const 
   MaxSize = 100;  { масимальный размер массива }
   RandomMax = 10; { числа будут в диапазоне от 1 до 10 }
var
  a:array[1..MaxSize] of integer;
  n,i,j, k :integer;
  wasBefore : boolean;
begin
  Randomize;
  {ввод массива }
  repeat
    writeln('Введите количество чисел в массиве (от 1 до ',MaxSize,'): ');
    readln(n);
  until (n>=1) and (n<=100);

  {заполним массив случайными числами и одновременно выведем их на экран}
  writeln('Введённые цифры: ');
  for i:=1 to n do begin
    a[i]:=random(RandomMax) + 1; { сл.число в диапазоне от 1 до RandomMax }
    write(' ',a[i]);
  end;
  writeln;

  {собственно вывод повторяющихся чисел}
  Write('Повторяющиеся числа: ');
  for i:=1 to n-1 do
    for j:=i+1 to n do
      {если есть повтор, то } 
      if a[i]=a[j] then begin
        {проверим, не было ли данного числа раньше }
        wasBefore := false;
        for k:=1 to i-1 do 
          if a[i]=a[k] then begin
            wasBefore := true; {было такое число раньше}
            Break; {раз было - прерываем цикл - нечего тут большое ловить}
          end; 
       {если ещё не было такого числа, то выведем его}
       if Not wasBefore then Write(a[i],' ');
       Break; {раз нашли повторяющее число, то его дальше не проверяем}
      end;
  WriteLn;

  Readln;

end.

___________
tema12t не теряйте Randomize; - это важно, чтобы последовательность случайных чисел была разной!

Сообщение от zmey31313

    case a[i] of
      0 : k[0] := k[0] + 1;
      1 : k[1] := k[1] + 1;

Жуть! zmey31313, никогда! Слышите - НИКОГДА не пишите такой код! Вы же не индус!!! это ужас с кейсом заменяется одной строчкой кода (два оператора):
if (a[i]>=0) and (a[i]<=9) then Inc( k[a[i]] );