//PascalABC.NET 3.1 сборка 1200 function Change(condition: boolean; value, default_value: integer): integer; begin if condition then Change := value else Change := default_value; end;
const n = 12;
begin var a := ArrRandom(n, -10, 10); a.Println;
if a.Where(x -> x > 0).Count > a.Where(x -> x < 0).Count then begin var half_max := a.Max / 2; var mult := 1; mult := a.Where(x -> x > half_max).Aggregate((mult, x)-> mult * x); a.Transform(x -> Change((x < 0), mult, x)); end else a.Transform(x -> Change((x < 0), 0, x));
begin
var x:=-2.0;
while x<=2 do begin
Writeln('x=',x:4:1,' y=',x*x*x+12:6:3);
x+=0.2
end
end.
Результат выполнения программы:
x=-2.0 y= 4.000
x=-1.8 y= 6.168
x=-1.6 y= 7.904
x=-1.4 y= 9.256
x=-1.2 y=10.272
x=-1.0 y=11.000
x=-0.8 y=11.488
x=-0.6 y=11.784
x=-0.4 y=11.936
x=-0.2 y=11.992
x= 0.0 y=12.000
x= 0.2 y=12.008
x= 0.4 y=12.064
x= 0.6 y=12.216
x= 0.8 y=12.512
x= 1.0 y=13.000
x= 1.2 y=13.728
x= 1.4 y=14.744
x= 1.6 y=16.096
x= 1.8 y=17.832
x= 2.0 y=20.000
function Change(condition: boolean; value, default_value: integer): integer;
begin
if condition then
Change := value
else Change := default_value;
end;
const
n = 12;
begin
var a := ArrRandom(n, -10, 10);
a.Println;
if a.Where(x -> x > 0).Count > a.Where(x -> x < 0).Count then begin
var half_max := a.Max / 2;
var mult := 1;
mult := a.Where(x -> x > half_max).Aggregate((mult, x)-> mult * x);
a.Transform(x -> Change((x < 0), mult, x));
end
else
a.Transform(x -> Change((x < 0), 0, x));
a.Println;
end.