//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.
Answers & Comments
Verified answer
//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.