program bt_mang;

uses crt;

var i,n,min,max:integer;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

 begin

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

 readln(a[i]);

end;

writeln('cac so da nhap:');

for i:=1 to n do write(a[i]:3);

max:=a[1];

for i:=1 to n do

 if a[i] <max  then max:=a[i];    (chỗ này mình thấy sai sai nên mình ghi thêm câu lệnh này để bn tham khảo "if a[i] >max then max:=a[i];" câu lệnh này ko có ở trong bài nhé) )

writeln('so lon nhat la:',max);

min:=a[1];

for i:=1 to n do

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

writeln('so be nhat la:',min);

readln;

end.

(mong dc5*+hay nhất chỗ cần thêm mình in đậm và gạch chân)

program bt_mang;

uses crt;

var i,n,max,min:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so da nhap: '); 

for i:=1 to n do write(A[i],',');

max:=a[1];

for i:=1 to n do

if A[i]>max then max:=a[i];

write('So lon nhat la: ',max);

min:=a[1];

for i:=1 to n  do

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

write('So nho nhat: ',min);

readln;

end.