Pascal. Вычислить функцию.

[Sanya4742]

Пожалуйста, помогите решить задачу!
Задан массив чисел X [1.. 15].
Определить значение переменной y.

A2 + 17,8 * 103 / cos2(A2)+M1*A2 , если А2 > 0
y =
0,0023+A2*M1 , если А2 ≤ 0

[Naeel Maqsudov]

Перенесено в отдельную тему

[demon416]

cos2 - косинус в квадрате?
откуда брать а2 и м1?
куда тыкать массив x?
одним словом Sanya4742,давай полное условие

[Sanya4742]

A2 - Сумма положительных элементов массива X,
М1 - количество элементов массива X, значения которых меньше А1.
А1 - сумма элементов массива X.
Вот все данные.
Да, там cos в квадрате.
И ещё там не 103, а 10 в 3-ей степени.

[Хыиуду]

Код: Выделить всё

for i:=1 to 15 do inc(A1, x[i]);
for i:=1 to 15 do begin
  if x[i]<A1 then inc(M1);
  if x[i]>0 then inc(A2);
end;
if A2<=0 then y:=0.0023+A2*M1
else y:=A2 + 17.8 * 1000 / sqr(cos(A2))+M1*A2;