Vijos第一题输出问题

来源：百度知道 编辑：UC知道 时间：2024/05/06 08:07:47
var
name:array[1..100]of string;
qian:array[1..100]of longint;
qimo,banji,lunwen,n,i,j,k,haoma,z:longint;
ganbu,xibu:char;
function all(qm,bj:longint; gb,xb:char; lw:longint):longint;
var money:longint;
begin
money:=0;
if (qm>80)and(lw>0)
then money:=money+8000;
if (qm>85)and(bj>80)
then money:=money+4000;
if qm>90
then money:=money+2000;
if (qm>85)and(xb='y')
then money:=money+1000;
if (bj>80)and(gb='y')
then money:=money+850;
all:=money;
end;

{-----------}

begin
begin
read(n);
for i:=1 to n do
begin
readln(name[i]);
readln(qimo,banji,ganbu,xibu,lunwen);
qian[i]:=all(qimo,banji,ganbu,xibu,lunwen);
end;
end;
begin
z:=0;
for k:=1 to n do
z:=qian[k]+z;
end;

begin
for j:=1 to n do
if qian[1]<qian

去贴吧，我已经把你的程序改好了。

哈哈，给分！

Program Zax;
Var
n,Ma,Po:integer;
Su:longint;
ls:char;
Name:array [1..150] of string;
So1,So2,Article,Money:array [1..150] of integer;
O1,O2:array [1..150] of boolean;
Procedure Readin;
Var
i,j:integer;
begin
Fillchar(so1,sizeof(so1),0);
fillchar(so2,sizeof(so2),0);
Readln(n);
For i:=1 to n do
begin
j:=1;
Repeat
Read(ls);
If ls<>' '
then begin Insert(ls,Name[i],j); j:=j+1; end
else Break;
Until ls=' ';
read(so1[i]); Read(so2[i]);
read(ls); Read(ls); If ls='Y' then o1[i]:=true else o1[i]:=false;
read(ls); Read(ls); If ls='Y' then o2[i]:=true else o2[i]:=false;
Readln(Article[i]);
end;
end;
Procedure Reward;
Var
i:integer;
begi