Viết chương trình nhập 2 loại điểm toán và ngữ văn của các bạn, sau đó in ra màn hình điểm trung bình mỗi bạn trong lớp, điểm trun

0 bình luận về “Viết chương trình nhập 2 loại điểm toán và ngữ văn của các bạn, sau đó in ra màn hình điểm trung bình mỗi bạn trong lớp, điểm trun”

1. Var a,b:array[1..100] of integer;
             c: array[1..100] of real;
             i,n:integer;
   Begin
   write(‘Nhap so hoc sinh: ‘);readln(n);
   writeln(‘Nhap diem Toan’);
   for i:=1 to n do begin write(i,’. ‘);readln(a[i]);end;
   writeln(‘Nhap diem Van’);
   for i:=1 to n do begin write(i,’. ‘);readln(b[i]);end;
   for i:=1 to n do c[i]:=(a[i]+b[i])/2;
   writeln(‘Diem trung binh’);
   for i:=1 to n do writeln(i,’. ‘,c[i]:0:5);
   readln
   end.

   Trả lời