узнать есть ли в массиве одинаковые числа

[lanabanana]

Такое задание, что нужно узнать, если ли в массиве одинаковые значения, если нет, то выводить 0, если есть, то выводить значение, что повторяется и количество повторений, если оно не одно, то с новой строки. Как это все сделать? Напишите, пожалуйста..

[Вадим Мошев]

Вот вариант с сортировкой массива.

Сначала массив отсортировать. Потом обходить его по такому алгоритму. Если i-й элемент не равен предыдущему, то переходить на следующую итерацию цикла.
Если равен, то запустить внутренний цикл, начиная с i+1 до индекса последнего элемента в этом массиве с рассматриваемым значением. Количество итераций такого цикла будет равно количеству повторений текущего элемента. После завершения внутреннего цикла перейти к элементу, следующему за последним элементом с только что рассмотренним значением и повторять всё сначала.

Вариант без сортировки массива.

В начале i равно 1
"Встаём" на i-й элемент массива. Рассматривали ли мы такой элемент. Если рассматривали, то просто переходим к следующему элементу массива. если не рассматривали, по помещаем этот элемент в список уже рассматриваемых и приступаем к рассмотрению всех элементов, следующих за текущим. Считаем, сколько элементов равно текущему. Оно и будет количеством повторов. После завершения внутреннего рассмотрения увеличиваем i на 1 и повторяем алгоритм сначала.

[lanabanana]

Сообщение от Вадим Мошев

Вот вариант с сортировкой массива.

Сначала массив отсортировать. Потом обходить его по такому алгоритму. Если i-й элемент не равен предыдущему, то переходить на следующую итерацию цикла.
Если равен, то запустить внутренний цикл, начиная с i+1 до индекса последнего элемента в этом массиве с рассматриваемым значением. Количество итераций такого цикла будет равно количеству повторений текущего элемента. После завершения внутреннего цикла перейти к элементу, следующему за последним элементом с только что рассмотренним значением и повторять всё сначала.

Вариант без сортировки массива.

В начале i равно 1
"Встаём" на i-й элемент массива. Рассматривали ли мы такой элемент. Если рассматривали, то просто переходим к следующему элементу массива. если не рассматривали, по помещаем этот элемент в список уже рассматриваемых и приступаем к рассмотрению всех элементов, следующих за текущим. Считаем, сколько элементов равно текущему. Оно и будет количеством повторов. После завершения внутреннего рассмотрения увеличиваем i на 1 и повторяем алгоритм сначала.

а как это все в делфи написать? нужен код..

[Вадим Мошев]

А сами что? Вот вам будут "помогать" таким образом, а что вы на экзамене делать будете?

[Serge_Bliznykov]

lanabanana, приложение консольное или оконное?

И, допустим, Вы не можете написать простенький код по сортировке массива и поиску одинаковых элементов.
А что Вы можете? Описать массив и заполнить его исходными данными можете?
Тогда показывайте свои наработки.

[Вадим Мошев]

ИМХО, вариант без сортировки - проще.

[northener]

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

lanabanana, приложение консольное или оконное?

И, допустим, Вы не можете написать простенький код по сортировке массива и поиску одинаковых элементов.
А что Вы можете? Описать массив и заполнить его исходными данными можете?
Тогда показывайте свои наработки.

А при чём тут некая сортировка?

[Filka]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  Arr: array[0..11] of Integer = (1, 10, 20, 10, 40, 20, 11, 11, 5, 10, 40, 0);

var
  TempArr: array[0..40] of Integer;
  I: Integer;

begin
  FillChar(TempArr, SizeOf(TempArr), #0);

  for I := Low(Arr) to High(Arr) do
    Inc(TempArr[Arr[I]]);

  for I := Low(TempArr) to High(TempArr) do
  begin
    if TempArr[I] > 1 then
      Writeln(I, ': ',  TempArr[I]);
  end;
  Readln;
end.

Подробности тут.

[Аватар]

А при чём тут некая сортировка?

Потому, что это самый простой способ решения. А код от Filka плох тем, что очень жесткие рамки. В массиве -2000000000 и 2000000000, приехали

[Iron Monk]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  mass: array[0..5999] of Integer;
  tmp: array of Integer;
  i, max: Integer;
begin
  Randomize;
  for i:= Low(mass) to High(mass) do
   mass[i]:= Random(6000);
   max:= MaxIntValue(mass);
  {******************************}
   SetLength(tmp, max);
  for i:= Low(mass) to High(mass) do
   tmp[mass[i]]:= tmp[mass[i]] + 1;
  for i:= Low(tmp) to High(tmp) do
  //  if tmp[i] <> 0 then
    Writeln(IntToStr(i) + ' - ' + IntToStr(tmp[i]));
    Readln;
end.