1.

a) sai vì thiếu dấu ":" (cú pháp đúng: for <biến đếm>:=<GTĐ> to <GTC> do <Câu lệnh>;)

b) sai vì dư 1 dấu "." (cú pháp đúng: Var <tên biến mảng>:array[<CSĐ>..<CSC>] of <KDL>;

c) sai vì chỉ số đầu và chỉ số cuối của mảng phải là số nguyên

d) sai vì vòng lặp for thứ nhất thiếu từ khóa "do"

e) Đúng

3.

Mảng là một dãy hữu hạn gồm nhiều phần tử có cùng một kiểu dữ liệu, được phân biệt qua chỉ số hay thứ tự trong mảng

Cú pháp khai báo: Var <tên biến mảng>:array[<CSĐ>..<CSC>] of <KDL>;

Trong đó: Chỉ số đầu ≤ Chỉ số cuối và luôn luôn là số nguyên

6.

uses crt;

var a: array[1..100] of integer;

i,n,max,min: integer;

begin

clrscr;

write ('Nhap N: ');  readln (N);

for i:=1 to N do 

begin

write ('Nhap phan tu thu ',i,': ');  readln (a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln ('GTLN: ',max);

writeln ('GTNN: ',min);

readln;

end.

Câu 1:

a) For i=1 to 10 do write('A');

→Cấu trúc vòng lặp For..do: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

⇒Sai→Thiếu dấu " : " ở i=1.

b) Var X:array[5...10] of char;

→Cấu trúc khai báo mảng: <tên biến mảng>:array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

⇒Sai→Dư dấu " . " ở giữa giá trị đầu và giá trị cuối.

c) Var X:array[3.4..4.8] of integer;

→Trong đó: Giá trị đầu và giá trị cuối có kiểu dữ liệu là số nguyên.

⇒Sai.

d) For i:=1 to 6 For j:=1 to 6 do x:=x+1;

→Cấu trúc vòng lặp For do: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

⇒Sai→Thiếu do trong vòng lặp For i:=1 to 6

e) Var X:array[4..10] of char;

→Cấu trúc khai báo mảng: <tên biến mảng>:array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

⇒Đúng.

Câu 3:

⇒Cấu trúc khai báo biến mảng: Var <tên biến mảng>:array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

→Trong đó: giá trị đầu và giá trị đầu có kiểu dữ liệu là số nguyên, chỉ số đầu phải nhỏ hơn hoặc bằng chỉ số cuối.

Câu 6:

uses crt;

var A:array[1..100] of integer;

n,i,max,min:integer;

begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']=');

readln(A[i]);

end;

max:=A[1];

min:=A[1];

for i:=1 to n do

if max<A[i] then max:=A[i];

for i:=1 to n do

if min>A[i] then min:=A[i];

writeln('Gia tri lon nhat: ',max);

write('Gia tri nho nhat: ',min);

readln

end.