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