program Dayso;

uses crt;

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

i,n,max,min,tong:integer;

begin

clrscr;

write('nhap n=');

readln(n);

for i:=1 to n do begin 

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

readln(a[i]);end;

max x:=a[1];

for i:=2 to n do if max >a[i] then max x:=a[i];

writeln('LN',max);

readln;

end;

sửa:

max:=a[1];

for i:=2 to n do if max <a[i] then max:=a[i];(chỗ này đề là max > a[i] ko sai nhưng trên ngữ cảnh thì sai bạn có thể tham khảo hoặc giữ nguyên như đề cx dc chỗ có để giữ nguyên ko cần đổi mình gạch chân )

i,n,max,tong:integer;(khai báo thừa biến min)

(mong dc 5*+hay nhất)

(chỗ sai mình bôi đen nhé)

dòng 12: max x:=a[1] `->` sửa thành: max:=a[1];

dòng 13: max x:=a[i] `->` sửa thành: max:=a[i];

* biến tổng khai báo thừa

* dòng 13 không sai, nhưng nếu là tìm max thì điều kiện phải là max<a[i]