Question

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

Answer 1

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]