sort.pl0

来自「扩展PL0语言 对其扩展++,--,+=,-=运算等」· PL0 代码 · 共 20 行

PROGRAM SORT3;
VAR
A:ARRAY[1..10] OF REAL;
TEMP:REAL;
I,J:INTEGER;
BEGIN
  
  FOR I:=1 TO 10 DO
    READ(A[I]);
  FOR I:=1 TO 10 DO
    FOR J:=1 TO 10-I DO
     IF A[J]<A[J+1] THEN 
      BEGIN
        TEMP:=A[J];
        A[J]:=A[J+1];
        A[J+1]:=TEMP;
      END;
  FOR I:=1 TO 10 DO
   WRITE(A[I]);
END.