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