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]));
writeln('y[',i,'] = ,y);
end;
readln;
end.