li20082008li 2012-08-06 01:08:00
点我顶贴
收藏
删除
刚开始学,写得很烂,但比较好理解,哈哈~
program ex24;
var
a,b:array[1..12] of integer;
i,y:integer;
s:real;
begin
for i:=1 to 12 do
readln(a[i]);
for i:=1 to 12 do
begin
if (b[i]+300)<a[i] then begin y:=i; break; end;
b[i]:=b[i]+300-a[i];
if (b[i]>=100) and (b[i]<200) then begin b[i]:=b[i]-100; s:=s+100; end
else if(b[i]>=200) and (b[i]<300) then begin b[i]:=b[i]-200; s:=s+200 end
else if b[i]>=300 then b[i]:=b[i]-300; s:=s+300;
end;
if y>0 then begin writeln('-',y); exit; end;
writeln(s*1.2+b[12]:0:0);
end.