cho dãy A gồm N số nguyên A1…AN tính và đưa ra màn hình tổng của 2 số nhỏ nhất trong dãy A

0 bình luận về “cho dãy A gồm N số nguyên A1…AN tính và đưa ra màn hình tổng của 2 số nhỏ nhất trong dãy A”

1. uses crt;
   var A:array[1..1000] of integer;
       N,i,j,tam:integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      for i:=1 to n-1 do
         for j:=i+1 to n do
            if A[i]>A[j] then 
            begin
               tam:=A[i];
               A[i]:=A[j];
               A[j]:=tam;
            end;
      write(‘Tong cua 2 so nho nhat la: ‘,A[1]+A[2]);
      readln
   end.

   Bình luận