Технический форум - Помогите с последовательностью чисел

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите с последовательностью чисел

Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, упорядочены ли положительные элементы по возрастанию... помогите я что то вообще не пойму как делать...

Цитата:

Сообщение от Sayks (Сообщение 409730)

М-да... задачка неожиданно оказалась несколько более головоломной, чем я ожидал. Но вот - например, так:

Код:

VAR

 A1,A2:REAL;

BEGIN

 Repeat

  Write('Enter the next number ');

  ReadLn(A1);

 Until (A1>0) or (A1=0);

 If A1=0 then

  WriteLn('There are no positive numbers in the secuence') else

 begin

  A2:=A1;

  Repeat

   If A2>0 then A1:=A2;

   Write('Enter the next number ');

   ReadLn(A2);

   If (A2>0) and (A2<=A1) then

    WriteLn('Positive numbers do not form the increasing secuence');

  Until ((A2>0) and (A2<=A1)) or (A2=0);

  If A2=0 then

   WriteLn('Positive numbers form the increasing secuence');

 end;

 ReadLn;

END.

огромное спасибо!

Цитата:

Сообщение от Sayks (Сообщение 409805)

огромное спасибо!

Пожалуйста.
Между прочим - не худо было бы указывать язык программирования. Их ведь, знаете ли, много...

в следующий раз учту)