Дана последовательность действительных чисел A1,A2,..., An. Выяснить, будет ли она...

Question

Дана последовательность действительных чисел A1,A2,..., An. Выяснить, будет ли она возрастающей.

Comments

Программой?

Answer 1

Var n,i,d:integer;
mass:array[1..20] of integer;
begin
read(n);
for i:=1 to n do
read(mass[i]);
for i:=1 to n-1 do
if mass[i+1]-mass[i]>0 then
begin
writeln('Возрастающая');
exit;
end  else begin
writeln('Не возрастающая');
exit;
end;
end.