viết chương trình 1 dãy n số . tìm ra số nhỏ nhất trong dãy vừa nhập

Program Hotboy ;

Uses crt;

Var i,n,MMin:integer;

S:longint;

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

Begin

Clrscr;

S:=0;

Write('nhap n tu ban phim');

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 Min>A[i] then Min:=A[i];

Write('so nho nhat la',Min);

Readln

End.

program ct;

uses crt;

var i,n,min: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,']:=');readln(a[i]);

end;

min:=a[1];

for i:=2 to n do

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

writeln('gia tri nho nha',min);

readln

end.