program Hello;
const N : integer = 10;
var i, sum, val: integer;
begin
sum := 0;
for i := 1 to N do
begin
read(val);
if val > 0 then
sum := sum + val;
end;
if sum > 0 then
writeln ( sum )
else
writeln ( 'No positive values' )
end.
Объяснение:
ответ:
n = int(
lstr = (" ")
ns = []
i = 0
tot = 0
while i < n:
ns.append(int(
tot += int(lstr[i])
i += 1
if tot % 5 == 0 and len(ns) > 4:
sm = int(tot / 5)
ns = sorted(ns, reverse=true)
ps = "yes"
su = 0
sk = 0
b = false
for n in ns:
if n ! = 0 and b:
su == 0
sk += 1
b = false
break
if sk == 5:
ps = "no"
break
su += n
if abs(su) > abs(sm):
ps = "no"
break
if su == sm:
b = true
print(ps)
else:
print("no")
объяснение:
var
N,x,s,i : integer;
begin
s:=0;
readln(N);
for i := 1 to N do
begin
readln(x);
if x > 0 then
s := s + x;
end;
if s > 0 then
writeln(s)
else
writeln('Нет положительных чисел');
end.