Ну я набросал на паскале :
program z; var n,i,imax,s,p:integer;masiv:array of integer;begins:=0;p:=1;writeln('Кол-вол значений масива');read(n);setlength(masiv,n); for i:=0 to n-1 do read(masiv[i]); for i:=0 to n-1 do begin if i mod 2 = 0 then if masiv[i]<imax then imax:=masiv[i]; end; writeln(); write(imax,' '); for i:=0 to n-1 do write(masiv[i],' ')end.