funparaa.pl0

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

PROGRAM ARRTEST;
VAR
B:ARRAY[1..2] OF INTEGER;
FUNCTION MC(A:ARRAY OF INTEGER):INTEGER;
VAR X,Y:INTEGER;
BEGIN
  WRITE(A[1],A[2]);
END;
BEGIN
 B[1]:=1;B[2]:=2;
 MC(B);
 WRITE(B[1],B[2]);
END.