Помогите, пожалуйста, составить программы

[Irisa]

Помогите, пожалуйста, составить программы

Помогите составить программы:
1)Для вычисления элементов матрицы y по известным элементам матрицы x:
y[i,j]=x в степени sinx[j],если x>x[j] и cosx>0.5
y[i,j]=(cos e в степени -x) +sinx[j], в противном случае
2)Написать программу, содержащую подпрограмму для расчета квадратного корня из суммы положительных элементов массива x[m,n]
Заранее спасибо!

 

[MrSTEP]

http://www.tehnari.ru/f22/t36032/

 

[Vladimir_S]

http://www.tehnari.ru/f22/t36032/

А к этому добавлю, что если Вы думаете, что, создавая дубликаты своих тем, Вы повышаете вероятность ответа, то уверяю Вас - глубоко заблуждаетесь. На самом деле Вы повышаете лишь шансы нарваться на наказание в виде бана.
Дубликат удален.

P.S. Ладно уж, так и быть: первую я Вам нарисую, а уж вторую (она совсем элементарная) - извольте самостоятельно. Дело в том, что в первой задаче есть "изюминка": поскольку там предполагается возведение в степень по основанию x, то отсюда следует, что все элементы массива x должны быть СТРОГО ПОЛОЖИТЕЛЬНЫМИ, поскольку при программной реализации такого действия не обойти вычисления логарифма x, а логарифм не допускает ни отрицательных, ни нулевых аргументов. С учетом этого:

const
 n=5;
var
 i,j:integer;
 x:array[1..n] of real;
 y:array[1..n,1..n] of real;
begin
 Randomize;
 For i:=1 to n do
  begin
   x[i]:=Random+0.1;
   Write(x[i]:9:5);
  end;
 WriteLn;
 WriteLn;
 For i:=1 to n do
  begin
   For j:=1 to n do
    begin
     If (x[i]>x[j]) and (Cos(x[i])>0.5) then
      y[i,j]:=Exp(Sin(x[j])*Ln(x[i]))
     else
      y[i,j]:=Cos(Exp(-x[i]))+Sin(x[j]);
     Write(y[i,j]:9:5);
    end;
   WriteLn;
  end;
 readln;
end.

 

[Irisa]

Спасибо!