【入门】打折优惠

【入门】打折优惠

题意分析：

这道题就是累加的值超过100时，超过100那部分便可以乘0.9

解题思路：

一边读入一边累加，然后按照题目要求判断。

算法分析：

用for语句一边读入一边累加到变量s里，然后用if语句判断s是不是大于100，如果是，

就减去原来超过100的数，再加上原来超过100的数*0.9.

答案参考：

var

s:real;

n,m,i:longint;

begin

readln(n);

for i:=1 to n do

begin

read(m);

s:=s+m;        //读入并累加

end;

if s>100 then s:=s-(s-100)+(s-100)*0.9;

writeln(s:0:2);

end.