import times, strutils, sequtils, math, algorithm, tables, sets, lists, intsets
import critbits, future, strformat, deques,heapqueue
template `max=`(x,y) = x = max(x,y)
template `min=`(x,y) = x = min(x,y)
template `mod=`(x,y) = x = x mod y
template scan2 = (scan(), scan())
template scan3 = (scan(), scan())
let read* = iterator: string {.closure.} =
    while true: (for s in stdin.readLine.split: yield s)
proc scan(): int = read().parseInt
proc scanf(): float = read().parseFloat
proc toInt(c:char): int =
  return int(c) - int('0')




proc solve():int=
  var
    n = scan()
    y = newseqwith(n,scan())
    ymin=y.min()
    ymax = y.max()-y.min()
    dp = newseqwith(n,newseqwith(ymax+1,int.high.div(4)))
    smallerVal = newseqwith(2,newseqwith(ymax+1,int.high.div(4)))
    
  if n==1:
    return 0
  for i in 0..<n:
    y[i]-=ymin
    
  
  for tail in 0..<ymax:
    dp[0][tail]=abs(y[0]-tail)
    if tail>0:
      smallerVal[0][tail]=min(smallerVal[0][tail-1],dp[0][tail])
    else:
      smallerVal[0][tail]=dp[0][tail]
  for i in 1..<n:
    var now = i.mod(2)
    var prev = (i+1).mod(2)
    for tail in 0..ymax:
      dp[i][tail].min=smallerVal[prev][tail]+abs(y[i]-tail)
      if tail>0:
        smallerVal[now][tail]=min(smallerVal[now][tail-1],dp[i][tail])
      else:
        smallerVal[now][tail]=dp[i][tail]
  return smallerVal[(n-1).mod(2)][^1]




  
echo solve()