Question

Viết chương trình nhập vào 1 dãy số thực. Tìm số nhỏ nhất rồi in ra kết quả

 

Answer 1

program TimSoNhoNhat;

uses crt;

var

     n, i: integer;

     a, min: real;

begin

     clrscr;

     write('Nhap so phan tu cua day: ');

     readln(n);

     write('Nhap cac phan tu cua day: ');

     readln(a);

     min := a;

     for i := 2 to n do

     begin

          readln(a);

          if a < min then

               min := a;

     end;

     writeln('So nho nhat trong day la: ', min:0:2);

     readln;

end.