Вычислить сумму положительных элементов массива после первого нуля - 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
СОХРАНИТЬ ССЫЛКУ