// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 const n=10; var a:array[1..n] of integer; i:integer; begin Randomize; for i:=1 to n do begin a[i]:=i; Write(a[i],' ') end; Writeln; end.
Результат выполнения программы 1 2 3 4 5 6 7 8 9 10
2. А вот так пишут "в жизни"
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var a:=Range(1,10).ToArray; a.Println end.
begin
ArrGen(10, i -> i).Print(', ');
end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=i;
Write(a[i],' ')
end;
Writeln;
end.
Результат выполнения программы
1 2 3 4 5 6 7 8 9 10
2. А вот так пишут "в жизни"
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=Range(1,10).ToArray;
a.Println
end.