Дано изображение. Запрос: <=76
Какие результаты можно получить?

109
483
41
129
26
13

1.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long b[31], i;

   for(i = 0; i < 30; i++)

   {

       b[i] = rand();

       cout << b[i] << " ";

   }

   for(i = 0; i < 30; i++)

       if(b[i] > 0)

       cout << i << " " << b[i] << endl;

   return 0;

}

2.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long b[5][5], i, j, sum = 1;

   for(i = 0; i < 5; i++)

       for(j = 0; j < 5; j++)

       {

           cin >> b[i][j];

           if(i == j)

               sum *= b[i][i];

       }

   for(i = 0; i < 5; i++)

       {

       for(j = 0; j < 5; j++)

           cout << b[i][j] << " ";

           cout << endl;

       }

       cout << sum << endl;;

   return 0;

}

Объяснение:

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

unit ASM;

interface

  type SF=(integer,integer);
  function AddSF(a,b:SF):SF;
  function SubSF(a,b:SF):SF;
  function MultSF(a,b:SF):SF;
  function DivSF(a,b:SF):SF;
 
implementation
 
  function Gcd(p:SF):integer;
  begin
    (var a,var b):=p;
    a:=abs(a); b:=abs(b);
    while b>0 do (a,b):=(b,a mod b);
    Result:=a
  end;
 
  function ReductSF(p:SF):SF;
  begin
    var t:=Gcd(p);
    if t>1 then Result:=(p[0] div t,p[1] div t)
    else Result:=p
  end;
 
  function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
 
  function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));

  function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
    
  function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
 
end.

Пример работы с модулем

uses ASM;

begin
  var a:=(5,24);
  var b:=(7,8);
  var c:=AddSF(a,b);
  Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.

Результат

5/24+7/8=13/12