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

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

1. uses crt;
   var A: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(A[i]);
      end;
      min:=A[1];
      for i:=2 to n do
      if A[i]<min then
      begin
         min:=A[i];
         stt:=i;
      end;
      write(‘So nho nhat la so ‘,min,’, o vi tri thu ‘,stt);
      readln
   end.

   Bình luận

2. Uses Crt;

   Var i,n,m:integer;

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

   Begin Clrscr;

   Write(‘Nhap n = ‘);

   Readln(n);

   For i:=1 to n do Begin Write(‘A[‘,i,’] = ‘);

   Readln(a[i]);

   End;

   m:=A[1];

   For i:=2 to n do If A[i]>m then m:=A[i]; 

   Writeln(m);

   Readln;

   End.

   Bình luận