mn giúp tui vs : tìm min và csmin , nếu trong dãy có nhiều min giống nhau thì hãy đưa ra màn hình min có chỉ số nhỏ nhất?

0 bình luận về “mn giúp tui vs : tìm min và csmin , nếu trong dãy có nhiều min giống nhau thì hãy đưa ra màn hình min có chỉ số nhỏ nhất?”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           min:=maxlongint;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i]<min then min:=A[i];
           End;
           Write(min,’ ‘);
           For i:=1 to n do
                   If A[i] = min then
                   Begin
                           Write(i);
                           Break;
                   End;
           Readln
   End.

   Bình luận