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".
B1: Nếu a> n thì in kết quả ra màn hình “n nhỏ hơn a”.
B2: nếu a< n thì in kết quả ra màn hình ” a nhỏ hơn n”,
ngược lại in ra màn hình ” Hai so bang nhau”.
B3: kết thúc.
*Viết chương trình: Uses crt; Var i,n,min: integer; a: array[1..100] of integer; Begin Clrscr; Writeln(‘ Nhap do dai cua day so, n= ‘); Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘); For i:= 1 to n do Begin Writeln(‘a[‘, i, ‘]= ‘); Readln(a[i]); End; min:= a[1]; For i:= 2 to n do Begin If min > a[i] then min:= a[i]; End; Writeln(‘So nho nhat la: ‘, min); Readln; End. *Nếu không sử dụng mảng thì nói với mình để mình sửa lại nhé! Nhớ tick và chọn làm ctr/l hay nhất ạ! Thanks! 😀
*Xác định thuật toán:
Input: Số n được nhập;
Output:Số nhỏ nhất trong dãy n số đó;
*Thuật toán:
B1: Nếu a> n thì in kết quả ra màn hình “n nhỏ hơn a”.
B2: nếu a< n thì in kết quả ra màn hình ” a nhỏ hơn n”,
ngược lại in ra màn hình ” Hai so bang nhau”.
B3: kết thúc.
*Viết chương trình:
Uses crt;
Var i,n,min: integer;
a: array[1..100] of integer;
Begin
Clrscr;
Writeln(‘ Nhap do dai cua day so, n= ‘); Readln(n);
Writeln(‘Nhap cac phan tu cua day so: ‘);
For i:= 1 to n do
Begin
Writeln(‘a[‘, i, ‘]= ‘);
Readln(a[i]);
End;
min:= a[1];
For i:= 2 to n do
Begin
If min > a[i] then min:= a[i];
End;
Writeln(‘So nho nhat la: ‘, min);
Readln;
End.
*Nếu không sử dụng mảng thì nói với mình để mình sửa lại nhé! Nhớ tick và chọn làm ctr/l hay nhất ạ! Thanks! 😀