Предмет:
ИнформатикаАвтор:
burnsАвтор:
dallas1cqhАвтор:
rosyburchАвтор:
juliusshortАвтор:
sassysmebАвтор:
tiprevklProgram n_1;
var a, b, i, n: integer; c: boolean;
begin
c:=true;
read(n, a);
for i:=2 to n do begin
read(b);
if b>=a then c:=false;
a:=b;
end;
if (c=true) then writeln('Поседовательность убывающая')
else writeln('Поседовательность не является убывающей');
end.
Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;
Автор:
timothyДобавить свой ответ
Предмет:
МатематикаАвтор:
isaiase1msОтветов:
Смотреть
Предмет:
ГеометрияАвтор:
conradgillespieОтветов:
Смотреть