Question

Viết chương trình nhập điểm thi môn Tin học, môn Toán của các bạn trong lớp. Đếm và in ra màn hình số lượng các bạn có điểm thi trên trung bình

Answer 1

Cho số bạn trong lớp là 30

uses crt;

var A,B,diemtb:array[1..30] of real;

dem,i:integer;

begin

for i:=1 to 30 do

begin

write('nhap diem mon tin, ban thu ',i,' la:'); readln(A[i]);

write('nhap diem mon toan, ban thu' ,i,' la:'); readln(B[i]);

end;

for i:=1 to 30 do diemtb[i]:=(A[i]+B[i])/2;

dem:=0;

for i:=1 to 30 do if diemtb[i]>=5 then dem:=dem+1;

write('so hoc sinh co diem thi tren trung binh la:',dem);

readln

end.