составьте программку,которая заполняет массив a[1..10]случайными целыми числами в спектре от

var

  a: array[1..10] of integer;  //Массив а

  i, index: integer;  //index - индекс последнего элемента с нечетным значением

begin

  write('Начальный массив:  ');

  for i:= 1 to 10 do  Наполняем массив элементами в спектре [1..10], печатаем его и определяем индекс заключительного элемента с нечетным значением

  begin

    a[i]:= random(10) + 1;

    write(a[i], '  ');

    if a[i] mod 2 = 1 then index:= i;

  end;

  writeln;

  writeln('Заключительный элемент с нечетным значением:  a[', index, '] = ', a[index]);  

end. 

Отметь решение как лучшее)