//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
if ar[i]>0 then s:=s+ar[i];
end;
writeln;
write('Result:',s);
end.
Пример работы программы:
Array:
3 -7 0 9 -9 6 -1 0 1 0 -7 9 -9 -5 -8
Result:28
К примеру. <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>
Если карандаш выбирали наугад и информация, что достали зеленый карандаш, несет 2 бита, то вероятность того, что достали зеленый карандаш, была равна 1/2^2 = 1/4. Значит, в коробке было 1/4 * 32 = 8 зеленых карандашей