Решите задачу. С програмой и с блок схемой.

Дана последовательность чисел, найти сумму положительных чисел пока не будет введен ноль.

1

Ответы и объяснения

2012-04-25T19:24:42+04:00

var a,s: real;

begin

  s:=0;

  repeat

    readln(a);

    if a>0 then s:=s+a;

  until a=0;

end.

Вот программа