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

Ответы 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.
    • Автор:

      basilf6s4
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years