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

[Sayks]

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

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

 

[Vladimir_S]

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

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

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]

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

 

[Vladimir_S]

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

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

 

[Sayks]

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