Помогите решить задание 5 это инфа если что pascal ABC

Question

Помогите решить задание 5 это инфа если что pascal ABC

---

Answer 1

Var x: array[1..3] of real; y: real; i: integer;
begin
x[1]:=11.8;
x[2]:=6.39;
x[3]:=5.54;
for i:=1 to 3 do begin
if (x[i]<0) then y:=x[i]-2 else y:=sqr(sin(x[i])/cos(x[i]));<br>writeln('y[',i,'] = ,y);
end;
readln;
end.

Comments

пишет неизвестный XYfanc

---

Вы точно все скопировали, т.к. данная процедура описана в программе и не может быть неизвестной

---

Могу переписать без функций, если не решится проблема

---

похоже на то что это очень

---

паскаль

---

а есть другой варик решить

---

эту задачу

---

Есть

---

Сейчас изменю

---

Исправил, пробуйте