Дана последовательность из N чисел. Определить, является ли она неубывающей?
//MINLIM -- нижняя граница вводимых чисел, N -- количество вводимых
//чисел
const N = 10;
MINLIM = -1000;
var pred, x, i : integer;
begin
pred := MINLIM;
for i := 1 to n do
begin
read(x);
if x < pred then
begin
writeln(Последовательность является убывающей.);
exit();
end;
pred := x;
end;
writeln(Последовательность является неубывающей.);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
