Дан одномерный целочисленный массив. найти: сумму элементов массива, расположенных между первым и последним нулевыми элементами. написать код на delphi.

ar i:integer; mas : array[0..19] of Integer; Begin Randomize; for i:=0 to 19 do mas[i] := Random(30)-15; for i:=1 to 20 do Begin if 0< mas[i]