Напишите программу, плиз, очень нужно и, если можете, то и блок-схему к ней

[Dima$]

Напишите программу, плиз, очень нужно и, если можете, то и блок-схему к ней

Дано 10 вещественных чисел. Определить, образуют ли они возрастаю-щую последовательность.

никаких ограничений на код не накладывается!!!!

 

[Vladimir_S]

Дано 10 вещественных чисел. Определить, образуют ли они возрастаю-щую последовательность.

никаких ограничений на код не накладывается!!!!

Как-то так:

VAR
 A:ARRAY[1..10] of REAL;
 i:INTEGER;
 b:BOOLEAN;

BEGIN
 b:=TRUE;
 Randomize;
 FOR i:=1 TO 10 DO
   BEGIN
    A[i]:=RANDOM*10-5;
    WriteLn(A[i]:7:5);
   END;
  WriteLn;
 {Ввод можно организовать иначе, напр. с консоли}
 FOR i:=2 TO 10 DO
   IF A[i-1]>A[i] THEN b:=FALSE;
 IF b THEN WriteLn('Yes') ELSE WriteLn('No');
 ReadLn;
END.