Вводится последовательность из N целых чисел. Является ли последовательность возрастающей?
Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.
Program Sequence;
var old, new : real;
f : boolean;
beginwrite(Введите x=);
readln(old);
write(Введите x=);
readln(new);
f:=true;
repeatif new<=old then f:=false;
old:=new;
write(Введите x=);
readln(new);
until new=0;
if f then writeln( Последовательность возрастающая)
else writeln( Последовательность не является возрастающей);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
