Сформировать целочисленный массив A[15]

[Ghyt]

Сформировать целочисленный массив A[15] , элементами которого являются случайные числа из диапазона [-8;10].Найти среди его элементов два , модуль разности которых имеет наибольшее значение.

[newerow1989]

var a:array[1..15] of integer;
    i,j,n1,n2,max:integer;
begin
   Randomize;
   For i:=1 to 15 do
   begin
      a[i]:=-8+Random(19);
      Writeln(a[i]);
   end;
   n1:=1;
   n2:=2;
   max:=Abs(a[n1]-a[n2]);
   For i:=1 to 15 do
      For j:=i+1 to 15 do
         If max<Abs(a[i]-a[j]) then
         begin
            n1:=i;
            n2:=j;
            max:=Abs(a[n1]-a[n2]);
         end;
   Writeln(a[n1],'   ',a[n2],'   max=',max);
   Readln;
end.

Сойдет?

[Ghyt]

нужно на C++

[Arigato]

Переведи сам.

[newerow1989]

Я знаю только Паскаль. Я не знаю C++

[Arigato]

Есть повод научиться.