Question

viết chương trình nhập từ bàn phím điểm kiểm tra giữa kì mon tin cho học sinh lớp 8.Số học sinh là n (o<n<20, n nhập từ bàn phím ) .Tính tổng điểm ,TBC điểm cho tất cả học sinh vừa nhập ,in lên màn hình điểm kiểm tra nhỏ nhất , điểm kiểm tra lớn nhất trong lớp (giải hộ mình với , mình đang cần gấp)

 

Answer 1

uses crt;

var a:array[1..20]of real;

t,tb,ln,nn:real;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t:4:2);

writeln(t/n:4:2);

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

 if nn>a[i] then nn:=a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(nn);

writeln(ln);

readln;

end.