Question

Вводится число N, а затем - N чисел. Определить, сколько среди них пар одинаковых чисел. 2<=N<=100. На паскале

Answer 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.

Answer 2

Задача: Подсчет пар одинаковых чисел

Дана последовательность чисел, состоящая из N элементов. Необходимо определить, сколько пар одинаковых чисел в этой последовательности. Значение N должно быть в диапазоне от 2 до 100.

Решение на языке Pascal

В языке Pascal можно решить данную задачу, используя массивы и циклы. Вот пример решения:

program CountPairs;

const
  N = 100;

var
  numbers: array[1..N] of Integer;  // массив для хранения чисел
  i, j, count: Integer;

begin
  // Ввод чисел
  writeln('Введите ', N, ' чисел:');
  for i := 1 to N do
    readln(numbers[i]);

// Подсчет пар одинаковых чисел
  count := 0;
  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if numbers[i] = numbers[j] then
        count := count + 1;

// Вывод результата
  writeln('Количество пар одинаковых чисел: ', count);
end.

В этом примере мы используем массив `numbers` для хранения введенных чисел. Затем мы используем вложенные циклы для сравнения каждого числа с остальными числами в последовательности. Если числа совпадают, мы увеличиваем счетчик `count` на единицу.

В конце программы выводится количество пар одинаковых чисел.

Пример работы программы

Предположим, что вводим следующую последовательность чисел: ``` 1 2 3 2 4 4 ```

Результат выполнения программы будет: ``` Количество пар одинаковых чисел: 2 ```

Программа обнаружит две пары одинаковых чисел: (2, 2) и (4, 4).

Это пример решения на языке Pascal. Если вам нужно решение на другом языке программирования, пожалуйста, уточните, какой язык вы предпочитаете, и я смогу предоставить вам соответствующий пример кода.