for_arr_pp.pl0

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

PROGRAM MAIN;
VAR
I:ARRAY[1..10] OF INTEGER;
K,J:INTEGER;
BEGIN
 K:=1;
 FOR J:=1 TO 5 DO
 BEGIN
  I[J]:=J;
  K++;
  WRITE(K);
  WRITE(I[J]);
 END;

 FOR J:=1 TO 5 DO
 WRITE(I[J]);
      
END.