Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{Xn, Yn=> minim(x[n],y[1])+.............+minim(x[1],y[n])} type vector=array[1..100] of integer; var x,y:vector; i,n,s:integer; begin repeat write('n=');readln(n); until (n>0) and (n<100); for i:=1 to n do begin write('x[',i,']=');readln(x[i]); end; for i:=1 to n do begin write('y[',i,']=');readln(y[i]); end; s:=0; for i:=1 to n do if x[n-i+1]<y[i] then s:=s+x[n-i+1] else s:=s+y[i]; writeln; writeln('expresia ceruta este ',s); readln;readln; end.
_______________________________________ House Music Set`s Me Free!
|
|