Заполнить двумерный массив 10х10 следующим образом

нужно вспомнить главную победу святослава в годы его правления - разгром хазарского коганата, что гос-ву увеличить свои земли, а так те ослабление   набегов от хазар!

  т.е. он смог победить кочевые племена, что способствовало росту земель и безопасную жизнь для народа. 

  *  1   2   3  4   5     6                 всего исходов 6*6 = 36   1 2   3   4  5   6  7                   благоприятных исходов (выделены)=   2 3   4  5   6   7   8                           =4+4+4+3+2+1=18   3 4  5  6   7   8   9               4 5   6   7   8   9 10                                   р=18/36 =1/2=0,5   5 6   7  8   9 10 11   6 7   8   9 10 11 12

//pascal abc.net 3.1 сборка 1219 const   n=5; var   max1,max2,min1,min2,i: integer;   ar: array[1..n] of integer; begin   max1: =integer.minvalue;   max2: =integer.minvalue;   min1: =integer.maxvalue;   min2: =integer.maxvalue;   for i: =1 to n do   begin     readln(ar[i]);     if (ar[i]< max1) and (ar[i]> max2) then max2: =ar[i] else     if ar[i]> max1 then     begin     max2: =max1;     max1: =ar[i];     end;     if (ar[i]> min1) and (ar[i]< min2) then min2: =ar[i] else     if ar[i]< min1 then     begin     max2: =max1;     min1: =ar[i];     end;   end;   writeln('сумма максимумов: ',max1+max2);   writeln('cумма минимумов: ',min1+min2); end. пример ввода: 1 2 3 4 5 пример вывода: сумма максимумов: 9 cумма минимумов: 3