program kt;
uses crt;
var A:array[1..30] of real;
i:integer;
TB:real;
begin clrscr;
for i:=1 to 30 do
begin
writeln('Nhap diem cua hs thu ',i,':'); readln(A[i]);
end;
TB:=0;
for i:=1 to 30 do
TB:=(TB+A[i])/30;
write('Diem TB cua 30 hs lop 8a la: ',TB);
readln;
end.
Học tốt!