Дан одномерный целочисленный массив. Найти: сумму элементов массива, расположенных между первым и последним нулевыми элементами. Помогите написать код на Delphi.
Дан одномерный целочисленный массив. Найти: сумму элементов массива, расположенных между первым и последним нулевыми элементами.
Помогите написать код на 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]
Не нашли ответ?
Похожие вопросы