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 ạ!!!

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.

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.