Chương trình dãy số nguyên sau đó tìm giá trị nhỏ nhất của dãy số đó
2 câu trả lời
uses crt;
var mang:array[1..250] of integer;min:integer;i,t:byte;
BEGIN
clrscr;
write('Nhap t: ');readln(t);
for i:=1 to t do
begin
write('So thu ', i, ': ');readln(mang[i]);
if i=1 then min:=mang[i]
else if mang[i]<min then min:=mang[i];
end;
write('Gia tri nho nhat: ', min);
readln
END.
var a:array[1..250] of integer;
min: integer;
i, n: byte;
Begin
Write('n = '); readln(n);
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
If i=1 then min:=a[i]
Else if a[i]<min then min:=a[i];
End;
Write('gia tri nho nhat: ', min);
Readln
End.
