а(10) жуп номерли элементтеринин арасынан ен киши он элементти табыныз
Program a10;
uses crt;
const n=10;
var
a:array[1..n] of integer;
i,imin,min:integer;
begin
clrscr;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
min:=a[2];
for i:=1 to n do
if (i mod 2=0) then
if(a[i]<min) and (a[i]>0) then begin min:=a[i]; imin:=i; end;
writeln('min zhup element a[',imin,']=',min);
readln;
end.