t_id
360
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
522840384 | 947758 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0131.pp } { internal error 10 with highdimension arrays OK 0.99.6 (MVC) } type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..3,1..3,1..3,1..3] of Byte; TA2 = Array[1..2,1..2,1..2] of Byte; var v,w: ta; x: ta2; e: longint; Begin e :=1; x[e,e,e]:=1; v[e,e,e,e,e,e,e,e,e,e] :=1; w[e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,v[e,e,e,e,e,e,v[e,v[e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,e,e],e,e,e,e,e,e,e,e],e,e,e]] := v [e,e,e,e,e,e,e,e,e,e]; writeln(w[e,e,e,e,e,e,e,e,e,e]); if w[e,e,e,e,e,e,e,e,e,e]<>1 then begin writeln('Error!'); halt(1); end; end.