viết chương trình nhập từ bàn phím M số thực (M<=100).Đưa ra màn hình giá trị nhỏ nhất của dãy số đó (giá trị các phần tử nhỏ hơn hoặc bằng 1000)

program phantumin;

uses crt;

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

      m,i,min:integer;

begin

clrscr;

write('Nhap so luong phan tu M: ');   readln(m);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to m do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

 end;

min:=A[1];

for i:=2 to m do

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

write('GIa tri nho nhat cua day la: ',min);

readln

end.

uses crt;

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

      m,i,min: word;

begin

clrscr;

write ('nhap m: ');  readln (m);

for i:=1 to m do

begin

write ('nhap a[',i,']: ');  readln (a[i]):

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

end;

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

readln;

end.

XIN CÂU TRẢ LỜI HAY NHẤT !!!