// 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку