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

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

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

   Bình luận

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

   Bình luận