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?

Question

hoaianh · Answer

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.

thienthanh · Answer

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.