Вводится число N, а затем - N чисел. Определить, сколько среди них пар одинаковых чисел. (2<=N<=100 что-то догнать не могу, как сделать, получается только с рядом стоящими парами Пример Вход Выход 5 1 3 2 2 3 2

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   int n, counter = 0;

   vector <int> arr;

   cin >> n;

   for(int i = 0 ; i < n ; ++i)

   {

       int temp;

       cin >> temp;

       arr.push_back(temp);

   }

   

   for(int i = 0 ; i < arr.size() - 1 ; ++i)

       for(int j = i + 1 ; j < arr.size() ; ++j)

           if(arr[i] == arr[j])

               counter++;

   cout << counter;

   return 0;

}

pascal

Объяснение:

Задание 1

var

y, z, c, d: real;

s, p: real;

begin

Write('Введите y, z, c и d:');

ReadLn(y, z, c, d);

p := y * z * c * d;

s := y + z + c + d;

WriteLn('Сумма равна ', s);

WriteLn('Произведение равно ', p);

end.

Результат: 33 и 250

Задание 2

var

a: real;

s: real;

begin

Write('Введите сторону квадрата a:');

ReadLn(a);

s := sqr(a);

WriteLn('Площадь квадрата равна ', s);

end.

Результат: 64

Задание 3

var

a, b: real;

s: real;

begin

Write('Введите стороны прямоугольника a и b:');

ReadLn(a, b);

s := a * b;

WriteLn('Площадь прямоугольника равна ', s);

end.

Результат: 60

pascal

Объяснение:

Задание 1

var

y, z, c, d: real;

s, p: real;

begin

Write('Введите y, z, c и d:');

ReadLn(y, z, c, d);

p := y * z * c * d;

s := y + z + c + d;

WriteLn('Сумма равна ', s);

WriteLn('Произведение равно ', p);

end.

Результат: 33 и 250

Задание 2

var

a: real;

s: real;

begin

Write('Введите сторону квадрата a:');

ReadLn(a);

s := sqr(a);

WriteLn('Площадь квадрата равна ', s);

end.

Результат: 64

Задание 3

var

a, b: real;

s: real;

begin

Write('Введите стороны прямоугольника a и b:');

ReadLn(a, b);

s := a * b;

WriteLn('Площадь прямоугольника равна ', s);

end.

Результат: 60