Bài toán bảng điểm khảo sát:
Nhà trường tổ chức khảo sát chất lượng học sinh khối 8 hai môn toán, ngữ văn. hãy viết chương trình nhập vào số tự nhiên N từ bàn phím, là số lượng học sinh trong lớp em , sau đó nhập điểm toán, điểm ngữ văn các bạn trong lớp và điểm trung bình của tường bạn trong lớp.
var n, i: byte;
dt, dv, tb: array[1..100] of real;
begin
Write(‘n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘nhap diem toan cua hoc sinh thu ‘, i, ‘: ‘); readln(dt[i]);
Write(‘nhap diem van cua hoc sinh thu ‘, i, ‘: ‘); readln(dv[i]);
tb[i]:=(dv[i] + dt[i])/2;
End;
Writeln(‘diem trung binh: ‘);
For i:=1 to n do
Writeln(‘hoc sinh thu ‘, i, ‘: ‘, tb[i]:8:4);
Readln
End.