nhập vào dãy số nguyên gồm N phân tử. in ra màn hình số nhỏ nhất trong dãy vừa nhập

0 bình luận về “nhập vào dãy số nguyên gồm N phân tử. in ra màn hình số nhỏ nhất trong dãy vừa nhập”

1. Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,min:longint;
   Begin
   Write(‘Nhap so ptu n vao: ‘); Readln(n);
   Writeln(‘Nhap cac ptu vao: ‘);
   For i:= 1 to n do
   Begin
   Write(‘a[‘,i,’]= ‘); Readln(a[i]);
   End;
   min:=a[1];
   For i:=2 to n do
   If min>a[i] then min:=a[i];
   End;
   Write(‘So be nhat trong day so la: ‘,min);
   Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá! Thanks bạn nhá :333
   * P/S: Hỏi gì thì comment bên dưới nhá 😀

   Bình luận