KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Chương trình dãy số nguyên sau đó tìm giá trị nhỏ nhất của dãy số đó
By Arya
Chương trình dãy số nguyên sau đó tìm giá trị nhỏ nhất của dãy số đó
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.
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.