Cod sursa(job #739775)
| Utilizator |  Astalas Paul paul777 |
Data | 23 aprilie 2012 21:00:52 |
|---|---|---|---|
| Problema | Transport | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var f,g:text;n,i,k,max,min:integer;v:array[1..16000]of integer;
begin
assign(f,'transport.in');reset(f);
assign(g,'transport.out');rewrite(g);read(f,n,k);
for i:=1 to n do read(f,v[i]);max:=-maxint;min:=maxint;
for i:=1 to n do begin
if v[i]>max then max:=v[i];
if v[i]<min then min:=v[i];end;
write(g,max+min);close(f);close(g);end.