Viết chương trình nhập dãy số gồm n số nguyên từ bàn phím. Tìm giá trị nhỏ nhất của dãy số vùa nhập.

0 bình luận về “Viết chương trình nhập dãy số gồm n số nguyên từ bàn phím. Tìm giá trị nhỏ nhất của dãy số vùa nhập.”

1. Program Hotboy ;

   Uses crt;

   Var i,n,MMin:integer;

   S:longint;

   A:array[1..100] of integer;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n tu ban phim’);

   Readln(n);

   For i:=1 to n do

   Begin

   Write(‘A[‘,i,’]’);

   Readln(A[i]);

   End;

       Min:=A[1];

   For i:=2 to n do

      

             if Min>A[i] then Min:=A[i];

      

   Write(‘so nho nhat la’,Min);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var A:array[1..100] of integer;

         i,n,min:integer;

   begin clrscr;

      write(‘Nhap so phan tu n: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        min:=A[1];

      for i:=1 to n do

        if A[i]<min then min:=A[i];

      writeln(‘Gia tri nho nhat cua day so vua nhap la: ‘,min);

   readln;

   end.

   Học tốt!

   Bình luận