viết chương trình pascal nhập vào điểm kiểm tra 1 tiết môn toán của học sinh lớp 11a , tính điểm trung bình và số lượng các học sinh có điểm trên 5

Question

lanngocha · Answer

program diemtrungbinh;

uses crt;

var A:array[1..100] of real;

n,i,d,t:word;

begin

clrscr;

write(‘Nhap so luong than vien lop 11a: ‘); readln(n);

d:=0; t:=0;

for i:=1 to n d

begin

write(‘Diem cua ban thu ‘,i,’: ‘); readln(A[i]);

t:=t+A[i];

if A[i]>5 then d:=d+1;

end;

writeln(‘Diem trung binh la: ‘,t/n:2:2);

writeln(‘Trong lop co ‘,d,’ hoc sinh co diem tren 5′);

readln;

end.

0 bình luận về “viết chương trình pascal nhập vào điểm kiểm tra 1 tiết môn toán của học sinh lớp 11a , tính điểm trung bình và số lượng các học sinh có điểm trên 5”