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

Помогите написать код на Delphi.

Question

Дросида

24 октября, 05:58

+1

Ответы (1)

Знаете ответ на вопрос?

Зарема · 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]

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