giúp em với ạ viết chương trình nhận điểm môn toán cho N học sinh rồi in ra màn hình điểm kiểm tra cùng với điểm trung bình môn toán của N học sinh với N là điểm nhập từ bàn phím
giúp em với ạ viết chương trình nhận điểm môn toán cho N học sinh rồi in ra màn hình điểm kiểm tra cùng với điểm trung bình môn toán của N học sinh với N là điểm nhập từ bàn phím
uses crt;
var a: aray[1..100] of real;
i,n: longint;s:real;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘a[‘,i,’]=’);
readln(a[i]);
s:=s+a[i];
end;
writeln (‘day diem cua nhap: ‘);
for i:=1 to n do write (a[i]:3:2);
writeln;
writeln (‘diem trung binh cua n hoc sinh: ‘,s/n:0:2);
readln;
end.
uses crt;
var a: aray[1..100] of real;
i,n: integer;
tb: real;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap diem cua hoc sinh thu ‘,i,’: ‘); readln (a[i]);
tb:=tb+a[i];
end;
tb:=tb/n;
writeln (‘day diem cua nhap: ‘);
for i:=1 to n do write (a[i]:2:1);
writeln;
writeln (‘diem trung binh cua n hoc sinh: ‘,tb:2:1);
readln;
end.