Информатика, опубликовано 2018-08-22 18:45:04 by Гость
Дана последовательность целых чисел, заканчиваемые нулем. Подсчитайте сумму положительных чисел последовательности. Пожалуйста помоги!!!
Ответ оставил Гость
Program beg;
var a,sum:integer;
begin
a:=-1;
while a0 do
begin
read(a);
if a>0 then sum:=sum+a;
end;
writeln(sum);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.