Var a: array[1..100, 1..100] of integer; i, j, m, n, count2, countx, x: integer;
begin {ввод матрицы} n := 10;
writeln('Данные матрицы:'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := random(200) - 100; write(a[i, j]:4, ' ') end; writeln; end;
write('x = '); readln(x); count2 := 0; countX := 0; for i := 1 to n do for j := 1 to n do begin if a[i, j] = x then countX := countX + 1; if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then count2 := count2 + 1; end; writeln('countX = ', countX); writeln('count2 = ', count2); end.
for(int i=5; i<=14;i++)
{
f*=1/i; //Эквивалентно f=f*1/i
}
cout<<f<<endl;
Остальное, думаю, сами допишете