viết chương trình khai báo mảng a gồm n phần tử, với n là số lượng các số nguyên nhập từ bàn phím. tìm và in ra màn hình số nhỏ nhất trong mảng a. (n cũng được nhập vào bàn phím)

program ct;

uses crt;

var Min,i,n:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');resdln(A[i]);

end;

Min:=A[1];

for i:=2 to n do

if Min>A[i] then Min:=A[i];

writeln('gia tri nho nhat cua day so la:',Min);

readln

end.

var a: array[1..1000] of integer;
    n,i,min: integer;
Begin
    write('Nhap n: '); readln(n);
    for i:=1 to n do
     begin
         write('a[',i,']: ');
         readln(a[i]);
     end;
    min := a[1];
    for i:=2 to n do
       if a[i]<min then min:=a[i];
    write('So nho nhat trong mang la: ',min);
    readln;
End.