Цитата:
Сообщение от Sayks
Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, упорядочены ли положительные элементы по возрастанию... помогите я что то вообще не пойму как делать...
|
М-да... задачка неожиданно оказалась несколько более головоломной, чем я ожидал. Но вот - например, так:
Код:
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.