YANGLINGYUN 2009-04-28 02:11:00
点我顶贴
收藏
删除
谁拿了最多奖学金
program jiang；
var
g,h,z:string；a,b,c,d,i,m,n,k,j:longint；e,f,l,y:char；
begin
m:=0；n:=0；
readln(a)；
for i:=1 to a do
begin
k:=0；
g:=z；read(l)；g:=g+l；
begin
while l<>’ ’do begin read(l)； g:=g+l；end；end；
read(b)；
read(c)；
read(y)；
read(e)；
read(y)；
read(f)；
read(d)；
if (b>80) and (d<>0) then k:=k+8000；
if (b>85) and (c>80) then k:=k+4000；
if b>90 then k:=k+2000；
if (b>85) and (f=’Y’) then k:=k+1000；
if (c>80) and (e=’Y’) then k:=k+850；
if k>m then begin m:=k；
h:=copy(g,1,length(g)- 1)；end；n:=n+k；end；
writeln(h)；writeln(m)；writeln(n)；
end.
答案一模一样 空格都没有 可是过不了 郁闷啊.....