Viết chương trình tìm số nhỏ nhất trong N số được nhập từ bàn phím

0 bình luận về “Viết chương trình tìm số nhỏ nhất trong N số được nhập từ bàn phím”

1. var a:array[1..100]of longint;

         n,i,max:longint;

   begin

   read(n);   {nhập số phần tử trong dãy}

   for i:=1 to n do read(a[i]);   {nhập giá trị các phần tử}

   max:=a[1];  {gán max=giá trị của phần tử thứ nhất}

   for i:=2 to n do

   if a[i]>max then max:=a[i];

   write(‘gia tri lon nhat trong day la: ‘,max);

   end.

   Ấn đồng thời alt+f5 để xem kq nhé!!!

   Đánh giá dùm nhé 🙂

    

   Bình luận

2. program BT;

   uses crt;

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

         n,i,min: integer;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            min:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

                     if min>A[i] then min:=A[i];

            end;

            write(‘So nhp nhat trong ‘,n,’ so vua nhap la: ‘,min);

            readln

   End.

   Bình luận