Bài 1 :
uses crt;
var a : array[1..100] of integer;
i, n : integer;
begin
clrscr;
write('Nhap do dai cua mang : '); readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' : '); readln(a[i]);
end;
readln
end.
Bài 2 :
a) Var Const a := 2; b := 10;
⇒ Sai cú pháp khai báo hằng a
b) Var thu_tu, so_luong : integer; real;
⇒ Sai cú pháp khai báo biến
⇒ Var <danh sách biến> : <kiểu dữ liệu>;
⇒ Sửa : Var thu_tu : integer; so_luong : real;
c) For i := 1.5 to 10 do writeln('A');
⇒ Sai kiểu dữ liệu giá trị đầu
⇒ 1.5 là kiểu số thực, giá trị biến đếm là một kiểu nguyên
d) While x = 10 do x = x + 3;
⇒ Sai câu lệnh, câu lệnh sai dấu gán
e) Var A : array[1,,100] of real;
⇒ Sai cú pháp khai báo mảng một chiều
⇒ Sai dấu ,,
g) If m > n; then m := m - n
⇒ Dư dấu chấm phẩy sau then
⇒ Câu lệnh thiếu dấu chấm phẩy ở cuối
