:
1
. , .
2
, . .
3
N . , .
4
N . . , .
5
N . , .
6
N . , Z, . .
7
, N. , , .
8
, N. .
9
N . , i ≤ i, i .
10
N . , L (0 ≤ L ≤ M-1).
11
, , , .
12
, , . A[n] , . , .
13
, . .
14
: , . : .
15
N. , (1, 2, 4, 8, 16, ).
16
N . , [c, d].
17
. , . , .
18
N . , .
19
N , . P1 P2. P2 P1 , .
|
|
20
N. : , .
21
, [, D].
22
, [, D].
23
, .
24
.
25
Y N. , , .
26
, .
27
.
28
.
29
. , , .
30
. B .
. n .
. 1.- .
4.1
2. .
var b:array [1..20] of integer;
i,n,S,P:integer;
begin
write(' n=');
readln(n);
for i:=1 to n do
begin
write(' b[',i,']=');readln(b[i]);
end;
S:=0;
P:=1;
for i:=1 to n do
if b[i]>0 then P:=P*b[i]
else S:=S+b[i];
writeln( b');
for i:=1 to n do
write(b[i]:5);
writeln;
writeln(' S=',s,' P=',P);
readln;
end.
3. .
b
0 -6 -2 67 4 2
S=-8 P=536