Hãy khai báo biến để a)Lưu số điểm trung bình của tối đa 50 học sinh b) Lưu n số nguyên Giải chi tiết giùm mình nhé Mình tặng 5sao ạ!! Cảm ơn ạ!!!

0 bình luận về “Hãy khai báo biến để a)Lưu số điểm trung bình của tối đa 50 học sinh b) Lưu n số nguyên Giải chi tiết giùm mình nhé Mình tặng 5sao ạ!! Cảm ơn ạ!!!”

1. a) 

   program baia;

   uses crt;
   var A:array[1..50] of real;
       i:integer;
   begin
      clrscr;
      for i:=1 to 50 do
      begin
         write(‘Nhap diem trung binh cua hoc sinh thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      readln
   end.

   b) 

   program baib;

   uses crt;
   var A:array[1..1000] of integer;
       i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n)
      for i:=1 to n do
      begin
         write(‘Nhap so thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      readln
   end.

   Bình luận

2. a) Var diemtb:array[1..50] of real;

   b)

   Var a:array[1..10000] of real;

   Bình thường không có ai nhập quá 100 số đâu bạn nha .-. Nên mình khai báo đến 10000 thôi ._. 

   Bạn có thể tham khảo chương trình 

   Bài a) 

   Program Hotboy ;

   Uses crt;

   Var diemtb:array[1..50] of real;

   Tb,S,n,i :real;

   Begin

   S:=0;

   Clrscr ;

   Writeln(‘nhap so hoc sinh ‘); 

   Readln(n);

   For i:=1 to n do

   Begin

   Write(‘hoc sinh thu’,i); 

   Readln(A[i]);

   For i:=1 to n do

   S:=S+ A[i];

   Tb:=S/n;

   End;

   Write(‘diem trung binh cua ‘,n,’ hoc sinh la’,tb);

   Readln

   End.

   Bài b

   Program Hotboy ;

   Uses crt;

   Var a:array[1..10000] of longint;

   S,n,i :real;

   Begin

   S:=0;

   Clrscr ;

   Writeln(‘nhap so so nguyen  ‘); 

   Readln(n);

   For i:=1 to n do

   Begin

   Write(‘ so nguyen thu ‘,i); 

   Readln(A[i]);

   End;

   Readln

   End.

   Bình luận