Question

На паскале
Задание: Сформировать одномерный массив из 10-ти элементов. Значение элементов массива должно быть равно его индексу.

Answer 1

1. Вот так учат писать в школе...

// 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.

Answer 2

Кстати, зачем вам Randomize?