Значения с символами $ остается
<em>E4=$C$2*D4</em>
Const
K = 13;
Var
A:array[1..K] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
S:=0;
i:=0;
Repeat
i:=i+1;
if A[i]>0 then
Repeat
S:=S+A[i];
i:=i+1
Until i>K;
Until i>=K;
WriteLn;
WriteLn('S = ',S);
End.
К системному программному обеспечению
1. при сложении и вычитании двоичных чисел помним о следующих правилах:
0+0=0 0-0 = 0
1+0=1 1-0 = 1
1+1 = 10 1-1 = 0
0+1 = 1 10-1 = 1
1010+10 = 1100
1010-10 = 1000
2.при умножении и делении действуем так же, как в десятичной СС
1010 1010*10 = 10100
<u>* 10</u>
0000
<u>+1010 </u>
10100
1010<u>| 10 </u> 1010/10 = 101<u>
</u>
<u>1010</u> 101
0
Переменная "c" после выполнения этого кода будет: 32