Xin hỏi ai viết chương trình này được ko giúp mik vs ạ! Câu hỏi là: Nhập điểm 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 t

0 bình luận về “Xin hỏi ai viết chương trình này được ko giúp mik vs ạ! Câu hỏi là: Nhập điểm 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 t”

1. program oken;
   uses crt;
   var a,b: array [1..100] of real;
       i,n: byte;
   begin
       clrscr;
       write(‘Nhap so ban can nhap diem: ‘); readln(n);
       for i:=1 to n do
           begin
               write(‘Diem TOAN cua ban thu ‘,i,’: ‘);
               readln(a[i]);
               write(‘Diem VAN cua ban thu ‘,i,’: ‘);
               readln(b[i]);
           end;
       writeln(‘TBC cua moi ban’);
       for i:=1 to n do
           writeln(‘Ban thu ‘,i,’: ‘,(a[i]+b[i])/2:0:1);
       readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

        Dtoan, Dvan:array[1..100] of real;

   begin

     write(‘nhao so hoc sinh=’);readln(n);

       for i:=1 to n do

   begin

      write(‘nhap diem toan [‘,i,’]=’);readln(Dtoan[i]);

      write(‘nhap diem van[‘,i,’]=’);readln(Dvan[i]);

   end;

   writeln(‘trung binh cua moi ban la’);

   for i:=1 to n do

   write((Dtoan[i]+Dvan[i])/2:3:1);

   readln

   end.

   Bình luận