Проверить наличие в массиве повторяющихся элементов

[anna0404]

Добрый вечер..Надеюсь на вашу помощь..

С клавиатуры вводится массив целых чисел A размером N. Проверить наличие в нем повторяющихся элементов (вывести на экран «yes», если повторяющиеся элементы существуют, иначе вывести «no»).
(сделать нужно в Console Application)

Спасибо)

[ByAlex]

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

Добрый вечер..Надеюсь на вашу помощь..

С клавиатуры вводится массив целых чисел A размером N. Проверить наличие в нем повторяющихся элементов (вывести на экран «yes», если повторяющиеся элементы существуют, иначе вывести «no»).
(сделать нужно в Console Application)

Спасибо)

Сейчас попробуем!

[Son Of Pain]

Ну вот тебе console application, например.

#include <iostream>
#include <algorithm>
#include <vector>
using namespace std;
int main()
{
	unsigned int n;
	cout<<"How many elements? ";
	cin>>n;
	cout<<"Enter data: ";
	vector<int> a(n);
	for (int i=0; i<n; cin>>a[i++]);
	sort(a.begin(), a.end());
	cout<<(unique(a.begin(), a.end())==a.end()?"no":"yes")<<endl;
}

[ByAlex]

Delphi -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Arr:array of integer;
  raz,i,j:integer;
  Check:boolean;
begin
  Arr:=nil;
  Check:=false;
  write('Vvedite n = ');
  read(raz);
  SetLength(Arr,raz);
  writeln('Vvedite massive iz ',raz,' elementov:');
  for i := 0 to raz-1 do
    read(Arr[i]);
  writeln;
  for i := 0 to raz-1 do
    for j := 0 to raz-1 do
    begin
      if i<>j then
      begin
        if Arr[i]=Arr[j] then
          Check:=true;
      end;
    end;
  if Check then
    write('Yes')
  else write('No');
  Arr:=nil;
  readln;
  readln;
end.

[Rififi]

anna0404

С клавиатуры вводится массив целых чисел A размером N. Проверить наличие в нем повторяющихся элементов (вывести на экран «yes», если повторяющиеся элементы существуют, иначе вывести «no»)

Console.WriteLine(Console.ReadLine().Split(new[] { ' ' }, StringSplitOptions.RemoveEmptyEntries)
	.Select(int.Parse).GroupBy(p => p).Count(p => p.Count() > 1) > 0 ? "yes" : "no");