|
Занимательная математика
(100 баллов)
Решение
var
f,f1:text;
a,sum1,sum2,n,i:longint;
begin
assign(f,'input.txt');
assign(f1,'output.txt');
reset(f);
rewrite(f1);
read(f,n);
for i:=1 to n do
begin
read(f,a);
sum1:=sum1+abs(a);
sum2:=sum2+a;
end;
write(f1,sum1+sum2);
close(f);
close(f1);
end.
|