輸入n名學(xué)生數(shù)學(xué)、物理、英語(yǔ)、物理、化學(xué)五門(mén)課的考試-文庫(kù)吧
2025-07-06 17:24 本頁(yè)面
【正文】 ,1] j]:=a[n+1,j]+a[i,j] for i:=1 to 5 do write(a[n+1,i]) var a:array[1..11,1..6] of real。 n,i,j,t,f,x:integer。 begin readln(n)。 for i:=1 to n do a[i,6]:=0。 for j:=1 to 5 do a[n+1,j]:=0。 for i:=1 to n do for j:=1 to 5 do begin read(a[i,j])。 a[i,6]:=a[i,6]+a[i,j]。 end。 for i:=1 to n do begin for j:=1 to 5 do write(a[i,j]:0:0,39。 39。)。 writeln(a[i,6]:0:0)。 end。 for j:=1 to 5 do begin for i:=1 to n do a[n+1,j]:=a[n+1,j]+a[i,j]。 write(a[n+1,j]/n:0:0,39。 39。)。 end。 end. 9班 邢軒、張西楠 program ex_3。 var a:array[1..100,1..6] of integer。 n,i,j,t,f:integer。 x:real。 begin readln(n)。 for i:=1 to n do a[i,6]:=0。 for j:=1 to 5 do a[n+1,
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1