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]

0 bình luận về “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]”

1. 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. 

   Bình luận

2. 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.

   Bình luận