Создать одномерный массив из 13 элементов. Вычислить наименьшее значение из четных элементов. Вывести его значение и индекс.

"Четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы. const   n=13; var   a:array[1..n] of integer;   i,imin:integer; begin   { инициализация }   Randomize;   Writeln('Элементы массива');   for i := 1 to n do   begin     a[i]:=Random(50);     Write(a[i]:3)   end;   Writeln;   { поиск минимума }   i:=4; imin:=2;   while i<=n do begin     if a[imin]>a[i] then imin:=i;     i:=i+2   end;   Writeln('Минимальный элемент с четным номером ',imin,' равен ',a[imin]); end. Тестовое решение: Элементы массива  30 23  5 19 36 10 10 37 42  4 23 37 34 Минимальный элемент с четным номером 10 равен 4