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

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

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

(Pascal ABC)

Question

Информатика

Протасий

25 мая, 16:45

Дано целое число 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.