Mong mọi người giúp mình Bài tập:Cho dãy A gồm N số nguyên (N<=250). In phần tử nhỏ nhất của dãy và chỉ số của phần tử đó

0 bình luận về “Mong mọi người giúp mình Bài tập:Cho dãy A gồm N số nguyên (N<=250). In phần tử nhỏ nhất của dãy và chỉ số của phần tử đó”

1. uses crt;
   var N:byte;
       A:array[1..250] of integer;
       i,min,csmin:integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      min:=A[1];
      for i:=2 to N do
      if min>A[i] then 
      begin
         min:=A[i];
         csmin:=i;
      end;
      writeln(‘Min la: ‘,min);
      writeln(‘Chi so cua Min la: ‘,csmin);
      readln
   end.
         

   Bình luận