Viết chương trình sử dụng biến mảng nhập vào 1 dãy các số thực.Tìm số nhỏ nhất của dãy rồi in kết quả ra màn hình?
Viết chương trình sử dụng biến mảng nhập vào 1 dãy các số thực.Tìm số nhỏ nhất của dãy rồi in kết quả ra màn hình?
program Mang;
uses crt;
var A:array [1..500] of real;
n,i: integer;
min: real;
Begin
write(‘Nhap n: ‘); readln(n);
min:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if min>A[i] then min:=A[i];
end;
write(‘So nho nhat: ‘,min:2:3);
readln
End.
uses crt;
var a:array [1..100] of real;
n,i: integer;
m: real;
Begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘nhap phan tu thu ‘,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: ‘,min:1:2);
readln;
End.