4) Последовательно вводятся N чисел. Найти сумму всех положительных чисел среди них. 5)...

Question

4) Последовательно вводятся N чисел. Найти сумму всех положительных чисел среди них.
5) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?

Напишите пожалуйста решение на языке Паскаль, используя(если их надо использовать) циклы: цикл "пока" и цикл "до"

Answer 1

Четвёртая
vara,b,n,c:longint;beginread (n);for a:=1 to n dobeginreadln(c);
if c>0 then b:=c+b; end;write (b);end.

Comments

var
a,b,n,c:longint;
begin
read (n);
for a:=1 to n do
begin
readln(c);
if c>0 then b:=c+b;
end;
write (b);
end.

---

спасиб

---

сможешь еще вот эти решить? https://znanija.com/task/27501301