Дано целое число K, а также K наборов ненулевых целых чисел. каждый набор

содержит не менее двух элементов, признаком его завершения является число 0.

Найти количество наборов, элементы которых растут или убывают.

(Pascal ABC)

Question

Информатика

Киряша

7 марта, 11:38

Дано целое число K, а также K наборов ненулевых целых чисел. каждый набор

содержит не менее двух элементов, признаком его завершения является число 0.

Найти количество наборов, элементы которых растут или убывают.

(Pascal ABC)

+1

Ответы (1)

Знаете ответ на вопрос?

Павлуша · Answer 1

Var a, k, n:integer;

begin

readln (k) ;

a:=1;

n:=-maxint;

while (a0) do

begin

read (a) ;

if (a>k) and (a>n) then n:=a;

end;

writeln (n) ;

writeln; ! может быть тут нужно написать readln вместо writeln?

end.