Question

pascal问题，我是初学者，请写出全过程

有五位同学, 其各科成绩如下:
　　　　学号 数学 语文 英语 总分
　　　　 1　 108　 97　90
　　　 　2　 98　 88 100
　　　　 3 　100 　43　89
　　　　 4 　 84 63　50
　　　　 5 　 97 87 100
　　输入每个学生成绩和学号, 并计算各人的总分。按总分由大到小输出　　

Answer 1

program lt;
const
filein='E:\lt.in';
fileout='E:\lt.out';
var fin,fout:text;
procedure init;
begin
assign(fin,filein);reset(fin);
assign(fout,fileout);rewrite(fout);
for i:=1 to 5 do

begin
read(fin,e[i],a[i],b[i]);readln(fin,c[i]);
d[i]:=a[i]+b[i]+c[i];
end;
end;
procedure t;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if d[i]>d[j] then
begin
t:=d[i];d[i]:=d[j];d[j]:=t;
t:=e[i];e[i]:=e[j];e[j]:=t;
end;
end;
end;
begin
init;
t;
for i:=1 to 5 do writeln(fout,e[i],' ',d[i]);
close(fout);
end.
加了文件
输出如不符合你的格式，可自行更改
望采纳