Viết chương trình nhập vào từ bàn phím một dãy số nguyên A gồm n phần từ A1, A2,…,An . Hãy tìm giá trị nhỏ nhất của dãy số .

0 bình luận về “Viết chương trình nhập vào từ bàn phím một dãy số nguyên A gồm n phần từ A1, A2,…,An . Hãy tìm giá trị nhỏ nhất của dãy số .”

1. program GTNN;

   uses crt;

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

         n,i,min:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu n: ‘);   readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);

   for i:=1 to n do

    begin

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

     readln(A[i]);

    end;

   min:=A[1];

   for i:=2 to n do

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

   write(‘GTNN cua day la: ‘,min);

   readln

   end.

   Trả lời

2. uses crt;

   var n,i,min:integer;

   a:array[1..100]of integer;

   begin

   clrscr;

   repeat

   write(‘nhap n=’); readln(n);

   for i:=1 to n do

   begin

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

   end;

   min:=a[1];

   for i:=1 to n do

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

   writeln(‘Gia tri nho nhat la: ‘,min);

   readln;

   end.

   Trả lời