Cod sursa(job #129918)

Utilizator CezarMocanCezar Mocan CezarMocan Data 30 ianuarie 2008 16:46:58
Problema Operatii Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var n,i,s,max,st,dr,min:longint;
    v:array[1..1000010] of longint;

begin
assign(input,'operatii.in');reset(input);
assign(output,'operatii.out');rewrite(output);
readln(n);
for i:=1 to n do
        read(v[i]);
for i:=1 to n do
        if (v[i]>v[i+1]) then
                s:=s+v[i]-v[i+1];
writeln(s);
close(input);close(output);
end.