Помогите решить задачу

[Муишка]

Помогите решить задачу

Записать на языке Паскаль основную программу и подпрограмму
А=2*Xmin +Ymin +sqrt(sinXmin +a) / sqrt(sinYmin +b), где Xmin и Ymin - минимальные элементы массивов х(10) и у(15)

 

[Муишка]

Пожалуйста помогите очень, очень надо

 

[AlexZir]

uses crt;
var x: array [1..10] of real;
     y: array [1..15] of real;
     maxN, i:integer;
     minX, minY, a: real;

procedure minimum;
begin
for i:=2 to maxN do
case maxN of
10: if x[i]<minX then minX:=x[i];
15: if y[i]<minY then minY:=y[i];
end;
end;

begin {основная программа}
writeln('Введите значения элементов массива х');
for i:=1 to 10 do
readln(x[i]);
minX:=x[1];
maxN:=10;
minimum;
writeln('Введите значения элементов массива y');
for i:=1 to 15 do
readln(y[i]);
minY:=y[1];
maxN:=15;
minimum;
a:=2*minX+minY+sqrt((sin(minX)+a)/(sin(minY)+b))
writeln('Значение выражения равно ',a);
readln
end.

 

[Муишка]

Спасибо большое А другой способ есть решить эту задачу?

 

[AlexZir]

Наверняка есть, это лишь один из возможных вариантов. Способов решения задачи может быть столько же, сколько решающих плюс еще один