Составьте программу, формирующую одномерный массив, элементы которого равны своему индексу.

const n=10; var a:array[1..n] of integer; i:integer; begin for i:=1 to n do a[i]:=i; for i:=1 to n do write(a[i],' '); writeln; end. Результат: 1 2 3 4 5 6 7 8 9 10