n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/DS0029.pas

20 строк353 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

const n=10;

var a:array [0..n-1] of pinteger;
    p:pinteger;
    s:string;
begin
  for var i:=0 to n-1 do begin
    new(p);
    a[i]:=p;
    a[i]^:=i;
  end;
  while true do begin
    //s:='s';
    for var i:=0 to n-1 do begin
      writeln('a[',i,']=',a[i]^);
      s:=a[i]^.tostring;//нет боксировки
    end;
    writeln;
  end;
end.