Program 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program 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.