Bài 1:

program oken;
uses crt;
var a: array [1..1000] of integer;
    i,n: integer;
begin
    clrscr;
    write('nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do
        begin
            write('a[',i,']: ');
            readln(a[i]);
        end;
    readln;
end.

Bài 2:

a) const a=2; b=3;

b) var thu_tu, so_luong: integer; 

c)  for i:=1 to 10 do writeln ('A');

d)  while x=10 do x:=x+3;

e) var A: array [1..100] of real;

f) if m>n then m:=m-n;

$O^ke_n$

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