Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{tab014.pas/pag128 Fiind dat un sir de n elemente numere intergi, sa se determine atat elementul minim cit si maxim printr-o singura parcurgere a sirului.}
var v: array [1..100] of integer; i,n,min,max:integer; begin write('n=');readln(n); for i:=1 to n do begin write('v[',i,']='); readln(v[i]) end; writeln; for i:=1 to n do write(v[i],' '); min:=v[1]; max:=v[1]; begin for i:=2 to n do if v[i]<min then writeln('minimul= ',min) else if v[i]>max then end;
writeln; writeln('maximul= ',max); readln; end.
_______________________________________ House Music Set`s Me Free!
|
|