Viết chương trình pascal nhập vào n số nguyên từ bàn phím, tìm số nhỏ nhất trong dãy số vừa nhập

program bai1;

var a:array[1..100] of longint;

i,n,max:longint;

begin

wrtie('N= ');readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

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

writeln('So lon nhat la ',max);

write('Vi tri la ');

for i:=1 to n do

if a[i]=max then write(i,' ');

readln

end.

Code chạy pascal

var a:array[1..10000000] of longint;
i,n,t,min:Longint;
begin
write('nhap n=');
read(n); writeln;
for i:=1 to n do read(a[i]);
min:=a[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
write('so nho nhat trong day la:',min);
readln;
readln;
end.