array.pl0

来自「我在三做的课程」· PL0 代码 · 共 16 行

PROGRAM EX;
VAR A[1~4],I1,I2,I3,I4;
BEGIN
 I1:=1;
 I2:=2;
 I3:=3;
 I4:=4;
 A[I1]:=1000;
 A[2]:=2000;
 WRITE(A[1],A[I2]);
 READ(A[I1],A[2],A[I3]);
 IF A[1]>A[2] THEN A[I4]:=A[1] ELSE A[4]:=A[I2];
 IF A[I3]>A[I4] THEN A[3]:=A[I2];
 WRITE(A[I4]);
END.