HELPPPPPPPPP MEEEEEE PLSSSSSSS Viết chương trình nhập vào một dãy số nguyên. In ra màn hình số bé nhất và vị trí của nó trong dãy số.

0 bình luận về “HELPPPPPPPPP MEEEEEE PLSSSSSSS Viết chương trình nhập vào một dãy số nguyên. In ra màn hình số bé nhất và vị trí của nó trong dãy số.”

1. program ct;

   uses crt;

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

         i,n,M:integer;

   begin clrscr;

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

      for i:=1 to n do

        begin

           writeln(‘A[‘,i,’]’); readln(A[i]);

        end;

        M:=A[1];

      for i:=1 to n do

        if A[i]<M then M:=A[i]

      write(Vi tri A[‘,i,’] la vi tri so be nhat: ‘,M);

   readln;

   end.

   Học tốt!

   Bình luận