"Четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы.
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
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