Элементы массива с нечетными индексами заменить на квадраты их индексов.

// Дан одномерный массив размерности 20. Заполнить его случайными числами на
// отрезке [-25,25]. Элементы с нечетными индексами заменить на квадраты их
// индексов. Вывести исходный и полученный массивы на печать
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i: integer;
begin
  SetLength(a, 20);
 
  // Заполнить случайными числами от -25 до 25. Заодно, вывести этот массив "на печать"
  Randomize;
  for i := 0 to High(a) do begin
    a[i] := Random(51) - 25;
    ListBox1.Items.Add(IntToStr(a[i]));
  end;
 
  // Элементы с нечетными индексами заменить на квадраты их индексов.
  i := 1;
  while i <= High(a) do begin
    a[i] := i*i;
    i := i + 2;
  end;
 
  // Вывести полученный массив "на печать"
  for i := 0 to High(a) do
    ListBox2.Items.Add(IntToStr(a[i]));
end;

// Дан одномерный массив размерности 20. Заполнить его случайными числами на
// отрезке [-25,25]. Элементы с нечетными индексами заменить на квадраты их
// индексов. Вывести исходный и полученный массивы на печать
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i: integer;
begin
  SetLength(a, 20);
 
  // Заполнить случайными числами от -25 до 25. Заодно, вывести этот массив "на печать"
  Randomize;
  for i := 0 to High(a) do begin
    a[i] := Random(51) - 25;
    ListBox1.Items.Add(IntToStr(a[i]));
  end;
 
  // Элементы с нечетными индексами заменить на квадраты их индексов.
  i := 1;
  while i <= High(a) do begin
    a[i] := i*i;
    i := i + 2;
  end;
 
  // Вывести полученный массив "на печать"
  for i := 0 to High(a) do
    ListBox2.Items.Add(IntToStr(a[i]));
end;