Дан массив а размерностью (m, n). найти произведение положительных элементов расположенных выше диагонали и заменить все нулевые элементы исходного массива на полученное произведение.

//pascal abc.net v3.0 сборка 1111 var   ma: array of array of integer;   n,m,i,j,res: integer;   b: boolean; begin   randomize;   res: =1;   b: =false;   read(m,n);   setlength(ma,m);   for i: =0 to m-1 do   setlength(ma[i],n);   writeln('first matrix: ');   for i: =0 to m-1 do     begin     writeln;       for j: =0 to n-1 do       begin         ma[i,j]: =random(10);         write(ma[i,j]: 5);       end;     end;   if n> m then     begin     for i: =0 to m-1 do     for j: =i+1 to n-1 do       if ma[i,j]> 0 then       begin;         res: =res*ma[i,j];         b: =true;       end;     end     else     begin       for i: =0 to n-1 do       for j: =i+1 to n-1 do         if ma[i,j]> 0 then          begin;           res: =res*ma[i,j];           b: =true;         end;     end;   if b=false then res: =0;   writeln;   writeln('final array: ');     for i: =0 to m-1 do     begin       writeln;       for j: =0 to n-1 do         begin         if ma[i,j]=0 then ma[i,j]: =res;         write(ma[i,j]: 5);         end;     end;   writeln;   writeln('res=',res); end.

#include <iostream>

#include <cmath>

using namespace std;

int main() {

setlocale(LC_ALL, "Rus");

float a, t, r=0;

cout << "Введите t:";

cin >> t;

cout << endl;

cout << "Введите a:";

cin >> a;

cout << endl;

if (t > 0.5 && t < 1) {

 r = t + a;

}

else if (t >= -1 && t <= 0.5) {

 r = abs(t - cos(pow(a, 3)));

}

else if (t == 1) {

 r = log(abs(t - a));

}

cout << r;

return 0;

}

Объяснение:

надеюсь правильно