a) Var Diem:array(1:35) of integer;

→Cấu trúc: Var <tên biến mảng>:array[chỉ số đầu..chỉ số cuối] of <kiểu dữ liệu>;

→Câu trên sai chỗ không dùng dấu" ( ) " nà phải dùng dấu ngoặc" [ ] ". Giữ chỉ số đầu và chỉ số cuối là dấu " .. "

→Var Diem:array[1..35] of integer;

b)

for i:=1 to 35 do

begin

write('Diem cua hoc sinh thu ',i,' : ');

readln(Diem[i]);

end;

c)

s:=0;

for i:=1 to 35 do

begin

write('Diem cua hoc sinh thu ',i,' : ');

readln(Diem[i[);

s:=s+Diem[i];

end;

Chương trình( Thêm )

Uses crt;

Var Diem:array[1..35] of integer;

i,s:integer;

begin

clrscr;

s:=0;

for i:=1 to 35 do

begin

write('Nhap diem hoc sinh thu ',i,' : ');

readln(Diem[i]);

s:=s+Diem[i];

end;

write('Tong: ',s);

readln

end.

`a) `

- Var <tên biến mảng> : array [<chỉ số đầu> .. <chỉ số cuối>] of <kiểu dữ liệu>;

- Var Diem : array (1 : 35) of Integer;

+ Sai dấu " ( " và " ) "

+ Sai dấu " : " giữa chỉ số đầu và chỉ số cuối

- Sửa : Var Diem : array [1 .. 35] of Integer; 

`b)`

- Câu lệnh nhập :

+ For k := 1 to 35 do readln(Diem[x]);

- Câu lệnh xuất :

+ For k := 1 to 35 do writeln(Diem[x]);

`c)`

- Đoạn chương trình tính tổng :

+ T := 0; For k := 1 to 35 do T := T + Diem[x];