Регистрация
TTpopoK
29.09.2022 02:47
Информатика
Есть ответ 👍

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

241
494
Посмотреть ответы 2

Ответы на вопрос:

агенбенди003
агенбенди003
4,5(76 оценок)
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.
KMasha11
KMasha11
4,5(15 оценок)

a 8 но стой

проверь сначала я часто ошибаюсь

Объяснение:

юсор 809097

Популярно: Информатика