願望
幼苗
共回答了13个问题采纳率:84.6% 举报
1、
type xx=record
k1,k2,k3,k4,k5,x,sum:longint;
end;
var a:array[1..4] of xx; t:xx; i,j:longint;
begin
for i:=1 to 4 do
begin
readln(a[i].k1,a[i].k2,a[i].k3,a[i].k4,a[i].k5);
a[i].x:=i;
a[i].sum:=a[i].k1+a[i].k2+a[i].k3+a[i].k4+a[i].k5;
end;
for i:=1 to 4 do
for j:=i+1 to 4 do
if a[j].sum>a[i].sum then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:=1 to 4 do
writeln(a[i].x,a[i].k1,a[i].k2,a[i].k3,a[i].k4,a[i].k5,a[i].sum);
end.
2、
var i,j,sum,x:longint;
begin
for i:=1 to 4 do
begin
write(i,' ');
for j:=1 to 6 do
begin
read(x);
sum:=sum+x;
write(x,' ');
end;
writeln(sum/6);
readln;
end;
end.
3、
var a:array[1..3,1..3] of longint;
i,j,k,sum,max:longint;
begin
for i:=1 to 3 do
readln(a[i,1],a[i,2],a[i,3]);
max:=-maxlongint;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if (ij)and(jk)and(ik) then
begin
sum:=sum+a[1,i]+a[2,j]+a[3,k];
if sum>max then begin max:=sum; writeln(1,'-',i,2,'-',j,3,'-',k); halt; end;
sum:=0;
end;
end.
网页上打的,很辛苦啊,求采纳
1年前
4