t_id
611
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ %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.