Информатика, опубликовано 2018-08-22 23:42:09 by Гость
Вводится последовательность из N целых чисел. является ли последовательность убывающей?
Ответ оставил Гость
Var
a:array [1..100] of integer;
n,i,k,p:integer;
Begin
writeln(in put n);
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>a[i+1] then k:=k+1;
if k=n then writeln(убывающая)
else writeln(неубывающая);
End.
-------------------Не забудьте сказать спасибо-------------------
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на