Câu 11: Viết 1 chương trình thực hiện các yêu cầu sau:
a/ Nhập vào n số học sinh trong lớp từ bàn phím.(1,0 điểm)
b/ Nhập điểm Toán và điểm Ngữ văn của của các bạn học sinh.(2,0 điểm)
c/ In ra màn hình điểm trung bình của từng học sinh.(tb=(toan+nguvan) /2)(1,0 điểm)
giúp mk vs các bạn giỏi tin ơi
uses crt;
var a,b,tb: array[1..100] of real;
i,n: integer;
begin
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap diem van cua hoc sinh thu ‘,i,’: ‘); readln (a[i]);
write (‘nhap diem toan cua hoc sinh thu ‘,i,’: ‘); readln (b[i]);
tb[i]:=(a[i]+b[i])/2;
end;
writeln (‘diem trung binh cua cac hoc sinh: ‘);
for i:=1 to n do
begin
write (tb[i]:3);
writeln;
end;
readln;
end.
uses crt;
var a,b,c: array[1..100] of real;
i,n: byte;
begin
clrscr;
write (‘nhap so luong hoc sinh: ‘); readln (n);
for i:=1 to n do
begin
clrscr;
write (‘nhap diem toan cua hoc sinh thu ‘,i,’: ‘); readln (a[i]);
write (‘nhap diem van cua hoc sinh thu ‘,i,’: ‘); readln (b[i]);
c[i]:=(a[i]+b[i])/2;
end;
clrscr;
writeln (‘diem trung binh cua cac hoc sinh: ‘);
for i:=1 to n do
begin
write (‘diem trung binh cua hoc sinh thu ‘,i,’: ‘,c[i]);
writeln;
end;
readln;
end.