read n
s:=0
for i:=1 to n begin
read cifra
s:=s+cifra
end
cif:=0
If s div 10=0 then
write 50-s
else begin
while s div 10<>0 do
cif:=cif+s mod 10
s:= s div 10
end
cif:= cif +s;
write 50-cif
end
e un pseudopascal, sper sa înțelegi. dacă ai nevoie de c++, cred că ti-l pot face si asa.
nu l-am pus pe pc dar cred că e bine