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