sort.pl0

来自「1. PL/0 语言介绍 ●PL/0 程序设计语言是一个较简单的语言」· PL0 代码 · 共 19 行

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.