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)
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 !!!