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

TestSamples/CompilationSamples/DS0028.pas

24 строки352 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
  //a[0]:=nil;
  new(a[0]);
  //a[0]^:=0;
  {for var i:=0 to n-1 do begin
    write(i);
    new(a[i]);
    a[i]^:=i;
  end;
  while true do begin
    s:='';
    for var i:=0 to n-1 do begin
      s:=S+a[i]^.tostring;
      writeln(a[i]^);
    end;
  end;}
    

end.