#include <iostream>
<span>#include <cstdlib>
</span><span>#include <iomanip>
</span><span>using namespace std;
</span>int const n=6;
<span>int const m=6;
</span>int main() {
<span> int a[n][m];
</span><span> int sm;
</span><span>// установка генератора случайных чисел
</span><span> srand(time(NULL));
</span><span>// генерация массива и вывод на экран
</span><span> for (int i=0; i<n; i++) {
</span> <span>for (int j=0; j<m; j++) {
</span> <span>a[i][j]=rand()%50-20;
</span><span> cout<<setw(7)<<a[i][j];
</span><span> }
</span><span> cout<<endl;
</span><span> }
</span><span>// обработка массива
</span><span> for (int i=0; i<m; i++) {
</span><span> sm=0;
</span><span> for (int j=0; j<n; j++) sm+=a[j][i];
</span><span> for (int j=0; j<n; j++)
</span><span> if (2*a[j][i]>sm) cout<<j+1<<" "<<i+1<<endl;
</span><span> }
</span><span> system("pause");
</span><span> return 0;
}</span>
-16 -2 15 4 7 3
<span> -13 16 3 16 -13 3
</span><span> 0 19 20 6 20 -18
</span><span> -19 7 1 10 -11 25
</span><span> 5 4 3 21 28 -13
</span><span> 26 -19 -7 12 -20 11
</span><span>1 1
</span><span>2 1
</span><span>3 1
</span><span>5 1
</span><span>6 1
</span><span>3 5
</span><span>5 5
</span><span>4 6
</span>
Var i,k,a,b:integer;
p<span>,c</span>:real;
begin
p:=0;
for k:= 4 to 8 do
begin
b:=1;
for a:=1 to k+1 do
b:=b*a;
c:=1;
for a:=2 to k do
c:=c*a*a/(a*a+2*a+3);
p:=p+b/c;
end;
writeln(p);
end.
Можно было ввод сделать попроще, но так программа не особо красиво выглядит)