Предмет: Информатика,
автор: Allucard
Дана последовательность из N чисел. Определить, является ли она неубывающей?
Ответы
Автор ответа:
0
//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.
//чисел
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.
Похожие вопросы
Предмет: Английский язык,
автор: badmaevo
Предмет: Қазақ тiлi,
автор: asdcdz
Предмет: Беларуская мова,
автор: школьник815
Предмет: Другие предметы,
автор: neznaika58298
Предмет: Английский язык,
автор: TvLeo