составьте программу, которая заполняет массив a[1 ... 10]случайными целыми числами в диапазоне от 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.

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