Viết chương trình máy tính

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

program bt;

uses crt;

var i,n: integer;

      a,b: array [1..100] of integer;

begin

clrscr;

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

writeln('Nhap diem toan cua cac hoc sinh: ');

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

writeln('Nhap diem van cua cac hoc sinh: ');

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

writeln('Diem trung binh cua cac hoc sinh: ');

for i:=1 to n do begin writeln(i,'.',(a[i] + b[i])/2:3:1); end;

readln

end.