Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{v.8 Se da un vector si se cere sa se ordoneze crescatoar elem pare din v, fara a modifica pozitia elem impare} program opt; type vector=array[1..100] of integer; var n,i,aux,k,t:integer; v,x:vector; s:boolean; begin repeat write('n=');readln(n); until (n>=0) and (n<=100); for i:=1 to n do begin write('v[',i,']=');readln(v[i]); end; k:=0; for i:=1 to n do if v[i] mod 2=0 then begin k:=k+1; x[k]:=v[i]; end; writeln('vectorul de numere pare din v este :'); for i:=1 to k do begin writeln('x[',i,']=',x[i]); end; repeat s:=true; for i:=1 to k-1 do if x[i]>x[i+1] then begin aux:=x[i]; x[i]:=x[i+1]; x[i+1]:=aux; s:=false; end; until s; writeln('vectorul de numere pare ordonat crescator din v este:'); for i:=1 to k do begin writeln('x[',i,']=',x[i]); end; t:=0; for i:=1 to n do if v[i] mod 2=0 then v[i]:=x[i-t] else t:=t+1; writeln('vectorul cerut este:'); for i:=1 to n do begin writeln('v[',i,']=',v[i]); end; readln;readln; end.
_______________________________________ House Music Set`s Me Free!
|
|