Создать одномерный массив из 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<br>    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