Вычислить сумму положительных элементов массива после первого нуля - Pascal ABC

Формулировка задачи:

Вычислить сумму положительных элементов массива А после первого нуля (при наличии нуля).

Код к задаче: «Вычислить сумму положительных элементов массива после первого нуля - Pascal ABC»

textual
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


СОХРАНИТЬ ССЫЛКУ