Дано целое число K, а также K наборов ненулевых целых чисел. Если элементы набора возрастают, то вывести 1; если элементы набора убывают, то вывести 1; если элементы набора не возрастают и не убывают, то вывести 0
Категория: Delphi/Pascal
2013-04-12 22:48:51
Каждый набор содержит не менее двух элементов, признаком его завершения является число 0.