Question

Вычислить 10 элементов которые получены в результате вычисления арифметического выражения Y=sin(a)/b где b=0.6 принадлежит [-1.57;3] с шагом 0.25 Найти сумму положительных и количество отрицательных значений элементов.
Помогите срочно пожалуйста!!!

Answer 1

var a,b,y,s:real;
        k:integer;
begin
s:=0;k:=0;
b:=0.6;
a:=-1.57;
while a<=3 do begin
y:=sin(a)/b;
writeln('y=',y);
if y>0 then s:=s+y;
if y<0 then k:=k+1;
a:=a+0.25;
end;
writeln(s);
writeln (k);
end.