Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.