Cho hai dãy số nguyên ????1, ????2, … , ???????? và ????1, ????2, … , ????????. Yêu cầu: Tìm giá trị nhỏ nhất của tổng |???????? + ???????? | với 1 ≤ ???? ≤ ????, 1 ≤ ???? ≤ ????.

0 bình luận về “Cho hai dãy số nguyên ????1, ????2, … , ???????? và ????1, ????2, … , ????????. Yêu cầu: Tìm giá trị nhỏ nhất của tổng |???????? + ???????? | với 1 ≤ ???? ≤ ????, 1 ≤ ???? ≤ ????.”

1. Program BTT;
   Uses crt;
   Var A,B: array[1..10000] of longint;
       m,n,min,i,j: longint;
   Begin
           Clrscr;
           Write(‘Nhap m: ‘); Readln(m);
           For i:=1 to m do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;
           Write(‘Nhap n: ‘); Readln(n);
           For j:=1 to n do
           Begin
                   Write(‘B[‘,j,’] = ‘);
                   Readln(B[j]);
           End;

           min:=abs(A[1]+B[1]);

           For i:=1 to m do
                   For j:=2 to n do
                           If abs(A[i]+B[j])<min then min:=abs(A[i]+B[j]);
           Write(‘Min = ‘,min);
           Readln
   End.

   Bình luận