Вычислить сумму положительных элементов массива после первого нуля - Pascal ABC
Формулировка задачи:
Вычислить сумму положительных элементов массива А после первого нуля (при наличии нуля).
Код к задаче: «Вычислить сумму положительных элементов массива после первого нуля - Pascal ABC»
i:=1;
k:=0;
while(i<=n)and(k=0) do
if a[i]=0 then k:=i else i:=i+1;
if k=0 then write('В массиве нет нуля')
else if k=n then write('Сумма после первого нуля=0')
else
begin
s:=0;
for i:=k+1 to n do
s:=s+a[i];
write('Сумма после первого нуля=',s);
end;
7 голосов, оценка 4.000 из 5
СОХРАНИТЬ ССЫЛКУ