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.
