Здравствуйте, Аноним, Вы писали:
А>Pascal:
А> 85 символов:
А>А>var j,s,n:int64;
А>begin
А> read(n);
А> repeat
А> read(j);
А> if j>0 then s:=s+j;
А> dec(n)
А> until n=0;
А> write(s)
А>end.
А>
76 символов:
var
a, s : int64;
begin
read(a);
repeat
read(a);
s:=s+a*ord(a>0)
until eof;
write(s)
end.
Здравствуйте, Сергей, Вы писали:
С>Здравствуйте, Аноним, Вы писали:
А>>Pascal:
А>> 85 символов:
А>>А>>var j,s,n:int64;
А>>begin
А>> read(n);
А>> repeat
А>> read(j);
А>> if j>0 then s:=s+j;
А>> dec(n)
А>> until n=0;
А>> write(s)
А>>end.
А>>
С>76 символов:
С>С>var
С> a, s : int64;
С>begin
С> read(a);
С> repeat
С> read(a);
С> s:=s+a*ord(a>0)
С> until eof;
С> write(s)
С>end.
С>
Это не будет работать, на тестах которые предложены на сфере.
Perl (53)
$a=<>;$b=0;while($a--){$c=<>;$b+=$c if$c>0;}print $b;
альтернатива (48)
$b=<>;$b=0;while($c=<>){$b+=$c if$c>0;}print $b;
