Cho n số.Hãy tính tổng các tử của dãy và in ra màn hình số nhỏ nhất.Biết n được nhập từ bàn phím

0 bình luận về “Cho n số.Hãy tính tổng các tử của dãy và in ra màn hình số nhỏ nhất.Biết n được nhập từ bàn phím”

1. program baigiai;

   uses crt;

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

         n,i,min:integer;

         s:longint;

   begin

   clrscr;

   write(‘Trong day co bao nhieu so: ‘);   readln(n);

   s:=0;

   for i:=1 to n do

      begin

          write(‘So thu ‘,i,’: ‘);    readln(A[i]);

          s:=s+A[i];

      end;

   writeln(‘Tong cac phan tu cua day la: ‘,s);

   min:=A[1];

   for i:=2 to n do

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

   write(‘So nho nhat trong day la: ‘,min);

   readln

   end.

   Bình luận

2. uses crt;
   var n,i,nn:longint;
   a:array[0..100000]of longint;
   begin
           clrscr;
           nn:=99999999;
           read(n);
           for i:=1 to n do
           begin
                   read(a[i]);
                   write(a[i],’ ‘);
                   if (a[i]<nn) then nn:=a[i];
           end;
           writeln;
           write(‘SNN: ‘,nn);
           readln; readln;
   end.

   Bình luận