Question

Viết chương trình nhập điểm 2 môn toán và ngữ văn của các bạn trong lớp. Sau đó in ra màn hình điểm trung bình của mỗi bạn trong lớp. (điểm trung bình = (điểm toán+điểm văn)/2)

 

Answer 1

var i,n:integer;

     tbtoan,tbvan:real;

     diemtoan,diemvan:array[1..100] of real;

begin

writeln('Diem trung binh :');

for i:=1 to n do

writeln(i,'.', (diemtoan[i]+diemvan[i])/2:3:1);

tbtoan:=0;tbvan:=0;

for i:=1 to n do

begin

tbtoan:=tbtoan+diemtoan[i];

tbvan:=tbvan+diemvan[i];

end;

tbtoan:=tbtoan/n;tbvan:=tbvan/n;

writeln('Diem trung binh mon Toan : ',tbtoan:3:2);

writeln('Diem trung binh mon Van : ',tbvan:3:2);

readln

end.

Answer 2

program bt;

uses crt;

var i,n : integer;

      diemtoan, diemvan: array [1..100] of real;

begin

clrscr;

write('Nhap so ban trong lop: '); readln(n);

writeln('Nhap diem toan: ');

for i:=1 to n do begin write(i,'.'); readln(diemtoan[i]); end;

writeln('Nhap diem van: ');

for i:=1 to n do begin write(i,'.'); readln(diemvan[i]); end;

writeln('Diem trung binh: ');

for i:=1 to n do begin

writeln(i,'.', (diemtoan[i] + diemvan[i]) / 2 :3:1);

end;

readln

end.