Школьный АЯ
алг Равенство(арг цел N, арг цел таб A[1:N],
рез лит Otvet)
нач цел i, j, лит Flag
i:=1; Flag:="Нет"
нц пока (i<=N–1) и (Flag="Нет")
| цикл по первому числу из пары
j:=i+1
нц пока (j<=N) и (Flag="Нет")
| цикл по второму числу из пары
если A[i]=A[j]| проверка равенства чисел
то Flag:="Да"
иначе j:=j+1
все
кц
i:=i+1
кц
если Flag="Да"
то Otvet:="Есть совпадающие числа"
иначе Otvet:="Нет совпадающих чисел"
все
кон
