Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Дана последовательность действительных чисел A1,A2,..., An. Выяснить, будет ли она возрастающей.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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.