... báo a Khai báo kiểu b Khai báo biến Cỏch 1: Var : ; : ARRAY[1 Max] of < Tên kiểu ghi> ; Cỏch 2: VAR = RECORD :; ... ); For i:=1 to n Writeln(LOP[I].sbd:5,LOP[i].Hoten:30, LOP[i].Toan: 5:1 ,LOP[i].Tin: 5:1 , LOP[i].Tong: 8:1 ,LOP[i].Ketqua:15); Program vd1; Uses crt; Type { Khai bao} Hocsinh = record SBD: integer; ... a:=b; a.ketqua:= DAT ; a.hoten:=b.hoten; Var Hocsinh = record SBD: integer; Hoten: string[30]; Toan,Tin,Tong: real; Ketqua: string[10]; end; LOP: ARRAY[1 50] of Hocsinh; a, b :hocsinh I,j,n :...