Câu 1:
a) Sai: Sau từ khóa var không được có dấu :
Chỉ số đầu phải bé hơn chỉ số cuối
Chỉ số đầu và chỉ số cuối phải nằm trong cặp [ ]
Sửa: Var Dtoan: array[1..9] of real;
b) Sai: Giữa chỉ số đầu và chỉ số cuối phải là dấu ..
Kiểu dữ liệu phải là real
Sửa: Var Dtoan: array[1..100] of real;
c) Sai: Sau tên biến mảng thiếu dấu :
Viết sai từ khóa array
Chỉ số đầu phải bé hơn chỉ số cuối
Giữa chỉ số đầu và chỉ số cuối phải là dấu ..
Sửa: Var Dtoan: array[1..90] of real;
d) Sai: Sau từ khóa var không được có dấu :
Sau tên biến mảng thiếu dấu :
Chỉ số đầu và chỉ số cuối phải nằm trong cặp [ ]
Giữa chỉ số đầu và chỉ số cuối phải là dấu ..
Sửa: Var Dtoan: array[1..100] of real;
Câu 2:
program ct;
uses crt;
var V,T:array[1..100] of real;
Tb:real;
i,n:integer;
begin clrscr;
write('Nhap so hoc sinh: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap diem mon van va mon toan cho hoc sinh thu ',i,': ');
readln(V[i],T[i]);
end;
for i:=1 to n do
Tb:=(V[i]+T[i])/n;
writeln('Diem trung binh hai mon la: ',Tb);
readln;
end.
Học tốt!
