Вычислить все значение функции f(x) на отрезке [a, b] в точках x = x + h
Функция(x • sin(x)) a-0 b-3π h-0,6

Подсчитать количество положительных значений функции и сумму отрицательных значений функции при заданных параметрах.

А ты можешь еще блок схему нарисовать

Могу конечно, но зачем я буду делать то. чего в вопросе не указано?

Прости,я не правильно написал вопрос,помоги очень благодарен буду

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b,h):=(0.0,3*Pi,0.6);  var x:=a;  var (k,s):=(0,0.0);  while x<=b do begin    var y:=x*Sin(x);    Writeln(x:5:1,y:18:13);    if y>0 then k+=1 else s+=y;    x+=h    end;  Writeln('Положительных- ',k,', сумма отрицательных ',s)end.Пример  0.0   0.0000000000000  0.6   0.3387854840370  1.2   1.1184469031607  1.8   1.7529257355808  2.4   1.6211116333228  3.0   0.4233600241796  3.6  -1.5930735958615  4.2  -3.6606182441371  4.8  -4.7815901224120  5.4  -4.1729282328023  6.0  -1.6764929891936  6.6   2.0561729991883  7.2   5.7144086197139  7.8   7.7886380939219  8.4   7.1786308279416  9.0   3.7090663671758Положительных- 10, сумма отрицательных -15.8847031844065