ПОЖАЛУЙСТА ПОМОГИТЕ, СРОООООЧНОВводится число N, а затем - N чисел. Найти,

ПОЖАЛУЙСТА ПОМОГИТЕ, СРОООООЧНО
Вводится число N, а затем - N чисел. Найти, сколько посреди них пар схожих чисел. 2lt;=Nlt;=100. На паскале

Задать свой вопрос
Руссиян Екатерина
Один елемент может быть  общим для нескольких пар ?
Ющишин Игорь
Ну либо сколько вы видите пара в этой последовальности 1 2 3 2 2 4
Анастасия Суверток
1 либо 3 ?
1 ответ
var
  i, j, n, s: integer;
  a: array[1..100] of integer;
begin
  read(n);
  for i := 1 to n do read(a[i]);
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] = a[j] then inc(s);
  write(s);
end.
Вадик Бороздна
61 2 3 2 2 43 ? 
Александр Булгачевой
Лично я вижу вижу только пару 1 (2) 3 (2) 2 4 ну либо 1 (2) 3 2 (2) 4
Vasilisa Sabukanova
или даже 1 2 3 (2) (2) 4
Валид-Абдул Любовь
Здесь 3 двойки. Из 3 элементов можно составить 3 пары
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт