Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дана последовательность действительных чисел 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.