Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất trong mảng vừa nhập.

0 bình luận về “Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất trong mảng vừa nhập.”

1. uses crt;

   var n,min,i:longint;

         a:array[0..10000]of longint;

   begin

       clrscr;

       read(n); 

       for i:=1 to n do

               read(a[i]);

        min:=a[1];

        for i:=2 to n do

            if a[i]<min then min:=a[i];

         write(min);

   readln;

   end. 

            

   Bình luận

2. write(‘nhap do dai cua day so n=’);readln(n);

   writeln(‘nhap cac phan tu cua day so :’);

   for i:=1 to n do

   begin

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

   end;

   max :=a[1] ; min:=a[1];

   for i:=2 to n do

   begin

   if max &lt;a[i] then max :=a[i];

   if min &gt;a[i] then min :=a[i];

   end;writeln(‘so lon nhat la:’,max);

   writeln(‘so be nhat la:’,min);
   readln

   end.

   Bình luận