Cod sursa(job #739775)

Utilizator paul777Astalas 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
Raporteaza aceasta sursa 
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.