Viết chương trình nhập n số và cho biết số nhỏ nhất trong dãy số vừa nhập là số thứ mấy

0 bình luận về “Viết chương trình nhập n số và cho biết số nhỏ nhất trong dãy số vừa nhập là số thứ mấy”

1. program luftmensch;

   uses crt;
   var T:array[1..1000] of integer;
         i,n,stt,min:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap so thu ‘,i,’: ‘);
         readln(T[i]);
      end;
      min:=T[1];
      for i:=2 to n do
      if T[i]<min then
      begin
         min:=T[i];
         stt:=i;
      end;
      write(‘So nho nhat la so ‘,min,’o vi tri thu’,stt);
      readln
   end.

   Bình luận