C1:

a) Dữ liệu kiểu mảng: là một tập hợp hữu hạn các phần tử có thứ tự, mỗi phần tử có một kiểu dữ liệu, gọi là kiểu của phần tử. Việc sắp xếp thứ tự được thực hiện bằng cách gán cho mối phần tử một chỉ số. 

b) cú pháp: var<tên biến>:array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

trong đó: 

+tên biến:do người lập chường trình đặt

+gái trị đầu,cuối: phải thuộc kiểu số nguyên và giá trị đầu phải bé hơn giá trị cuối

+kiểu dữ liệu: do người lập chường trình chọn

c) 

-tên mảng là: Can_nang

-số ptu tối đa là: 30 ptu

- câu lệnh nhập gái trị cho ptu thư 30 của mảng:

 readln(a[3]);

C2.

a) T:=100; for j:=10 to 20 do T:=T-j; (ban đầu: T=T-j;)

b) for i:=1 to 100 do write('day la lan lap thu',i);( ban đầu for i:=100 to 1)

c) X:=10;while x=10 do X:=X +5; (ban đầu: X=10; X=10 do.)(chỗ X=10 do . trong đề có dấu chấm mình ko biết là ý đề như thế hay in lỗi nhưng mà nó sai nên mình cũng liệt kê vào)

d) s:=10;j:=0; 

for i:=1 to 3 do begin j:=j*2; s:=s-j;end;(ban đầu for i:=1.5 to 3.5)

C3. uses crt;
var i,n,s:integer;
a:array[1..100] of real;
begin
clrscr;
write('nhap so HS:');readln(n);
for i:=1 to n do
begin
 write('nhap diem cua ban thu',i,':');
 readln(a[i]);
 if a[i] >= 8.0 then s:=s+1;
end;
write('so HS co diem tu 8.0 tro len la:',s);
readln;
end.

(mong dc 5*+hay nhất)

3.

uses crt;
var n,i,d: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap so hoc sinh: '); readln(n);
    for i:=1 to n do begin
        write('Hoc sinh thu ',i,': ');
        readln(a[i]);
        if a[i]>=8 then d:=d+1;
    end;
    write('Co ',d,' hoc sinh tren 8 diem');
    readln
end.

2.

a. do T=T-J;

`->` thiếu dấu ":" trước dấu "="

`=>` sửa: T:=100; for j:=10 to 20 do T:=T-j;

b. for i:=100 to 1 do write('day la lan lap thu ',j);

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

`->` trong vòng lặp không có biến j

`=>` sửa: for i:=1 to 100 do write('day la lan lap thu',i);

c. x=10; while x=10. do x:=x+5;

`->` x=10 thiếu ":" trước "="

`->` trước do có dấu "."

`=>` sửa: x:=10; while x=10 do x:=x+5;

d. s:=10; j:=0;

       for i:=1.5 to 3.5 do begin

                                                 j:=i*2;

                                                 s:=s-j;

                                        end;

`->` giá trị đầu, giá trị cuối kiểu số thực

`=>` sửa:

s:=10; j:=0;

       for i:=1 to 3 do begin

                                                 j:=i*2;

                                                 s:=s-j;

                                        end;