Юл
Юлия
паскаль помогите пожалуйста
<img title="паскаль помогите пожалуйста" src="//sprtqa.b-cdn.net/download/854d7d06e9e1b85237b15e2b1ea555f6_i-24.jpg" >
<img title="паскаль помогите пожалуйста" src="//sprtqa.b-cdn.net/download/854d7d06e9e1b85237b15e2b1ea555f6_i-24.jpg" >
Так вроде:
program Formula;
uses crt;
const h: real = 0.2; x_real: real = -2.3; x_final: real = 0.5;
var z, x: array[0..50] of real; y, sum: real; i: integer;
begin
for i:=0 to 50 do
begin
if i = 0 then x := x_real else
x := x_real + 0.2;
if x = x_final then break;
end;
for i:=0 to 50 do z := -2.3*x + sin(x);
sum := 0;
for i:=0 to 50 do if z >= 0 then sum:=sum+z;
y := sum*2;
writeln(y);
readkey;
end.