t_id
611
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526291869 | 948329 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$ifdef fpc}{$mode objfpc}{$endif} {$apptype console} var err : boolean; procedure Demo(x:array of longint); var i:longint; begin if high(x)<>4 then err:=true else if x[4]<>14 then err:=true; for i:=low(x)to high(x)do writeln(i,' ',x[i]); end; var y:array[10..40]of longint; i:longint; begin for i:=10 to 40 do y[i]:=i; Demo(slice(y,5)); if err then begin writeln('ERROR!'); halt(1); end; end.