К примеру. <span>ŀx+1l
</span>Модулем действительного число называется расстояние от начала отсчёта до точки, соответствующей данному числу. Например, I4I=4, I-5I=5, I0I=0.
Есть ещё такое определение. Оно используется при решении уравнений и неравенств.
IХI=Х, если Х>=0 (модуль неотрицательного числа равен самому себе)
IХI=-Х, если Х<0 (модуль отрицательного числа равен числу, ему противоположному) .
В Вашем примере:
Iх+1I=х+1, если х+1>=0, то есть х>=-1
<span>Iх+1I=-х-1, если х+1<0, то есть х<-1</span><span>
</span>
1. Записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).
2. Вычесть цифры младшего разряда. Примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.
3. Записать результат под горизонтальной чертой на вертикали единиц.
4. Повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.
1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
<span>end.
2. </span>Program fg;
<span>Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
<span>end.
3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
<span>end.</span></span></span>
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(7);
Write('Произведение четных: ',
a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.
<u>Пример</u>
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4
===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
