Viết chương trình vào một mảng không quá 100phần từ in ra giá trị nhỏ nhất [1..50]
Viết chương trình vào một mảng không quá 100phần từ in ra giá trị nhỏ nhất [1..50]
By Autumn
By Autumn
Viết chương trình vào một mảng không quá 100phần từ in ra giá trị nhỏ nhất [1..50]
Bạn tham khảo xem sao :
Program Kt _so_lon_nhat_nho_nhat;
Uses crt;
Var a, b : integer;
Begin
write (“Nhap so nguyen a = “); readln(a);
write (“Nhap so nguyen b = “); readln(b);
max:=a;
if max < b then max:=b;
writeln (“So lon nhat la :”,max);
min:=a;
if min>b then min:=b;
writeln (“So nho nhat la :”,min);
readln;
End.
program mang;
uses crt;
var A:array [1..100] of byte;
n,i,min: byte;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); 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(‘Gia tri nho nhat; ‘,min);
readln
End.