Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const nmax=100;
- type vector=array[1..nmax] of integer;
- var
- a:vector;
- n,i,min:integer;
- begin
- read(n);
- for i:=1 to n do
- read(a[i]);
- min:=a[1];
- for i:=1 to n do
- if(i mod 2 = 1) and (a[i]<min) then
- min:=a[i];
- write(min);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement