Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị nhỏ nhất
Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị nhỏ nhất
By Rose
By Rose
Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị nhỏ nhất
program nho_nhat;
uses crt;
var A:array[1..1000] of integer;
n,i,min:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
write(‘Day so la: ‘);
min:=A[1];
for i:=1 to n do
begin
write(A[i],’ ‘);
if A[i]<min then min:=A[i];
end;
writeln;
write(‘=> So nho nhat la: ‘,min);
readln;
end.
Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:integer;
Begin
Clrscr;
Write(‘Nhap so ptu n= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
Writeln;
Write(‘ Day so tren co cac ptu la: ‘);
For i:= 1 to n do
Begin
Write(a[i]:3);
End;
min:=a[1];
For i:= 2 to n do
Begin
If min>a[i] then min:=a[i];
End;
Writeln;
Write(‘Ptu nho nhat trong day la: ‘, min);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá! Thanks 😀
* Hỏi gì thì comment bên dưới nha 😀