Бахрамей
4 год назад
Дано целое число K, а также K наборов ненулевых целых чисел. каждый наборсодержит не менее двух элементов, признаком его завершения является число 0.Найти количество наборов, элементы которых растут или убывают.(Pascal ABC)
ОТВЕТЫ
Sergej
Oct 24, 2020
var a,k,n:integer;
begin
readln(k);
a:=1;
n:=-maxint;
while(a<>0) do
begin
read(a);
if(a>k)and(a>n)then n:=a;
end;
writeln(n);
writeln; !!!может быть тут нужно написать readln вместо writeln ?
end.
begin
readln(k);
a:=1;
n:=-maxint;
while(a<>0) do
begin
read(a);
if(a>k)and(a>n)then n:=a;
end;
writeln(n);
writeln; !!!может быть тут нужно написать readln вместо writeln ?
end.
469
Смежные вопросы:
