uses crt;
var n,i,Max,Min: integer;
    A:array[1..50] of integer;
begin
clrscr;
write('nhap n, n='); readln(n);
writeln('nhap A:');
for i:=1 to n do
begin
write ('nhap A',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('so lon nhat',max);
writeln('so be nhat',min);
readln
end.

1. Write('nhap A,i,'=');

⇒ Có 3 dấu nháy đơn, thiếu 1 dấu nháy đơn

⇒ Phần chương trình sau câu lệnh trở thành xâu kí tự cho tới khi gặp dấu nháy đơn tiếp theo

2. For i := 1 to 50 do

⇒ Sẽ nhập 50 phần tử từ bàn phím, mặc dù nhập n

- Chương trình hoàn chỉnh :

uses crt;

var n, i, Max, Min : integer;

    A : array [1 .. 50] of integer;

begin

clrscr;

write('Nhap n, n = '); readln(n);

writeln('Nhap A :');

for i := 1 to n do

    begin

        write ('Nhap A', 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 ('So lon nhat ', Max);

writeln ('So be nhat ', Min);

readln;

end.

- Kết quả chạy chương trình :