<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
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.
Var a: array[1..7] of real; k, n: integer; begin readln(k, n); for i:=1 to 7 do begin read(a[i]); if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n]; write(a[i], ' ');