Question

Дана последовательность действительных чисел а1, а2, ..., аn. Выяснить,

будет ли она убывающей.
пожалуйста срочно

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger;

 var ak := ReadReal;

 var i := 1;

 while i < n do

 begin

   var ai := ReadReal;

   if ai >= ak then

   begin

     Print('нет');

     exit

   end;

   ak := ai;

   i += 1

 end;

 Print('Да')

end.