Question

Giúp mình với , mai mình đi học rồi

Answer 1

program TICHSO;

var

     n, i, j, maxVal, a_i, a_j: Integer;

begin

     maxVal := 0;

     Readln(n);

     for i := 1 to n do

     begin

          Read(a_i);

          if Abs(a_i) > maxVal then

               maxVal := Abs(a_i);

     end;

     for i := 1 to n-1 do

     begin

          for j := i+1 to n do

          begin

               a_i := Abs(a[i]);

               a_j := Abs(a[j]);

               if (a_i * a_j) > maxVal then

                    maxVal := a_i * a_j;

          end;

     end;

     Writeln(maxVal);

end.