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!

câu 1:

a) sai:

chỗ (9..1) hoặc vuông ko phải hoặc tròn

giá trị đầu phải lon hơn giá trị cuối

sau var có :

sửa: var Dtoan: array[1..9] of real;

b)sai:

- giá trị đầu và giá trị cuối chính giữa phài là 2 dấu chấm ko phải 2 dấu phẩy

-kiểu dữ liệu sai

sửa: var Dtoan:array[1..100] of real;

c) sai:

- chỗ aray

- thiếu : sao Dtoan

- giá trị đầu lớn hơn giá trị cuối

- dấu , trong [90.,.]

sửa: var Dtoan: array[1..90] of real;

d) sai:

- sau var có :

- giá trị đầu lớn hơn giá trị cuối

- dấu hoặc

sửa: var Dtoan: array[1..100] of real;

câu 2:

program ct;

uses crt;

var i,n,S:integer;  tbc:real;  

Dtoan,Dvan:array[1..100] of real;

begin

clrscr;

  write('nhap so hoc sinh:=');readln(n);

    for i:=1 to n do

begin

  write('nhap diem toan va diem van',i,');readln(Dtoan[i],Dvan[i]);

end;

   S:=0;

     for i:=1 to n do

begin

    S:=Dtoan[i]+Dvan[i];

    tbc:=S/n;

end;

writeln('diem trung binh la:',tbc);

readln

end.