*pascal free -bài tập: +tính điểm trung bình 3 môn Toán, Văn, Anh của 33 học sinh BÀI LÀM VIỆC VỚI DÃY SỐ Giúp mình với, cảm ơn

0 bình luận về “*pascal free -bài tập: +tính điểm trung bình 3 môn Toán, Văn, Anh của 33 học sinh BÀI LÀM VIỆC VỚI DÃY SỐ Giúp mình với, cảm ơn”

1. uses crt;

   var i:integer;

         tong,toan,van,anh: array[1..33] of integer;

         tb: array [1..33] of real;

   begin

   clrscr;

   writeln(‘Nhap diem 3 mon toan, van, anh cua 33 hoc sinh:’);

   for i:= 1 to 33 do

   begin

   tong[i]:=0;

   writeln(‘Nhap diem cua hoc sinh thu ‘,i);

   write(‘Toan: ‘);readln(toan[i]);

   write(‘Van: ‘);readln(van[i]);

   write(‘Anh: ‘);readln(anh[i]);

   tong[i]:= toan[i] + van[i] + anh[i];

   tb[i]:=tong[i]/3

   end;

   writeln(‘Diem trung binh 3 mon cua 33 hoc sinh la:’);

   for i:= 1 to 33 do writeln(‘Diem trung binh cua hoc sinh thu ‘,i,’ la: ‘,tb[i]:0:2);

   readln;

   end.

   Bình luận

2. program diemtb;

   uses crt;

   var DTB:array [1..33] of real;

         T,V,A,:array [1..33] of integer;

         i:integer;

   begin clrscr;

      write(‘Nhap diem 3 mon Van, Toan, Anh moi HS: ‘);

      for i:=1 to 33 do

        begin

             writeln(‘Nhap diem cua HS thu ‘,i);

             write(‘Toan, Van, Anh: ‘);readln(T[i], V[i], A[i]);

                DTB[i]:= (T[i] +V[i] +A[i])/3;

        end;

      write(‘DTB[‘,i,’]’);readln(DTB[i]);

        for i:=1 to 33 do

      write(‘Diem TB 3 mon Van, Toan, Anh cua HS ‘,i,’ la: ‘DTB[i]:0:3);

   readln;

   end.

   Học tốt!

   Bình luận