當前位置:編程學習大全網 - 編程軟體 - 編程實現,輸入6位同學的成績,求出平均,最高分個最低分

編程實現,輸入6位同學的成績,求出平均,最高分個最低分

Pascal語言實現如下:

var

a:array[1..6]of longint;

i,max,min:longint;

mean:real;

begin

max:=a[1];

min:=a[1];

mean:=0;

for i:=1 to 6 do

begin

read(a[i]); //輸入6位同學的成績

mean:=mean+a[i]; //先求六位同學成績的總和

if max<a[i] then max:=a[i]; //求最高分

if min>a[i] then min:=a[i] //求最低分

end;

mean:=mean/6; //求六位同學成績的平均值

writeln(mean:0:2,max:5,min:5)

//輸出六位同學的平均值,最高分和最低分,其中輸出的平均值為其小數點後2位

end.

  • 上一篇:學習計算機軟件專業有什麽特殊的要求嗎?比如說英語、數學等
  • 下一篇:rc模型車的電機風扇如何連接電源
  • copyright 2024編程學習大全網