Const
n=4;
var
i,j:integer;
s:real;
a:array1..n,1..n of real;
begin
for i:=1 to n do
for j:=1 to n do
ai,j:=(cos(i)+sin(j))/sqrt(sqr(i)+sqr(j));
s:=1;
for j:=1 to n do
if a3,j<0 then s:=s*a3,j;
writeln(Произведение отрицательных элементов третьей строки: ,s)
end.

Решение:

Произведение отрицательных элементов третьей строки: 7.34755467325983E-05

А это другой вариант, если я неправильно условие под корнем понял

const
n=4;
var
i,j:integer;
s:real;
a:array1..n,1..n of real;
begin
for i:=1 to n do
for j:=1 to n do
ai,j:=(cos(i)+sin(j))/sqrt(i+sqr(j));
s:=1;
for j:=1 to n do
if a3,j<0 then s:=s*a3,j;
writeln(Произведение отрицательных элементов третьей строки: ,s)
end.

Результат прогона:

Произведение отрицательных элементов третьей строки: 0.000222420247776347

Третий вариант функции:

const
n=4;
var
i,j:integer;
s:real;
a:array1..n,1..n of real;
begin
for i:=1 to n do
for j:=1 to n do
ai,j:=(cos(i)+sin(j))/(sqrt(i)+sqr(j));
s:=1;
for j:=1 to n do
if a3,j<0 then s:=s*a3,j;
writeln(Произведение отрицательных элементов третьей строки: ,s)
end.

Тестовое решение:

Произведение отрицательных элементов третьей строки: 5.96321227675767E-06

  • Код в приложении, хотя я в нем не на 100% уверен, звиняй.
  • txt

    Глобалистика

    Автор: 

    Related Articles

    Март

    , членами фракции «Единая Россия» Тверской городской Думы в марте 2017г.   Дата Время 1 марта (среда)   0  

    Добавить комментарий