作业帮用Free Pascal IDE写程序,这道题该怎么写?输入N个同学的语、数、英三科成绩,计算他们的总分与平均分,并排出名次,最后以下列表格形式输出：名次 语 数 英 总分 平均分 2、求一个5 X 5数阵中的
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/28 20:15:25
用Free Pascal IDE写程序,这道题该怎么写?输入N个同学的语、数、英三科成绩,计算他们的总分与平均分,并排出名次,最后以下列表格形式输出：名次 语 数 英 总分 平均分 2、求一个5 X 5数阵中的
用Free Pascal IDE写程序,这道题该怎么写?
输入N个同学的语、数、英三科成绩,计算他们的总分与平均分,并排出名次,最后以下列表格形式输出：
名次 语 数 英 总分 平均分
2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列上最大的数.如下：
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
则1行1列上的数就是马鞍数.(注：数阵中的马鞍数可以有多个,也可以没有)
用Free Pascal IDE写程序,这道题该怎么写?输入N个同学的语、数、英三科成绩,计算他们的总分与平均分,并排出名次,最后以下列表格形式输出：名次 语 数 英 总分 平均分 2、求一个5 X 5数阵中的
第一题
var
a:array[1..100,1..6] of real;
b:array[1..100] of real;
i,j,k,n,y:integer;
x,t:real;
begin
write('n=');
readln(n);
for i:=1 to n do begin
for j:=2 to 4 do
begin
read(a[i,j]);
a[i,5]:=a[i,j]+a[i,5];
end;
readln;
a[i,6]:=a[i,5]/3;
end;
for i:=1 to n do
b[i]:=a[i,5];
for i:=1 to n do
for j:=i+1 to n do
if b[i]a[i,j] then begin min:=a[i,j];y:=j; end;
f:=true;
for j:=1 to 5 do
if a[j,y]>min then f:=false;
if f then writeln('(',i,',',y,')');
end;
end.
不懂追问!