:
1
4- 4- ( ). .
2
Y 7- 3- . .
3
5- 2- . , , .
4
4- 4- . , , , .
5
2- 7- . , , .
6
Y 5- 5- . .
7
4- 4- . , , .
8
6- 6- . , . , , , 1, .
9
Y 7- 3- . ,
10
4- 5- . , , . .
11
5- 4- . , .
12
Y 4- 4- . , S
13
6- 3- . , . , , , 1, .
14
6- 3- . , , . .
|
|
|
15
C 3- 5- . , . , , , 1, .
16
4- 5- . , .
, 1, . .
17
8- 3- . , . , .
18
6- 3- . , , .
19
D 5- 5- . , , D, , .
20
4- 5- . , , .
21
3- 5- . , , . .
22
2- 4- . , , . .
23
4- 4- . , , . .
24
4- 4- . , , , . .
25
D 5- 5- . , B , .
|
|
|
26
3- 5- . , , .
27
X 3- 7- . , , .
28
3- 5- . , , .
29
X 3- 7- . , , .
30
A 6- 6- Y 6 . , , 1, .
. 4- 4- ( ). .
. 1.- .
5.1
 |
2. .
program p4;
const n=4;
var c:array [1..4,1..4] of real;
S,P:real;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write(' c[',i,',',j,']=');
readln(c[i,j]);
end;
S:=0;
P:=1;
writeln(' ');
for i:=1 to n do begin
for j:=1 to n do
write(c[i,j]:6:2);
writeln;
end;
for i:=1 to n do
for j:=1 to n do begin
S:=S+c[i,j];
if c[i,j]<0 then P:=P*c[i,j];
end;
writeln(' S=',s:7:2,' P=',P:7:2);
readln;
end.
3. .
2.00 -5.90 5.00 -65.00
-3.98 0.00 8.00 76.40
23.70 1.34 -9.00 1.00
4.00 7.40 1.00 8.00
S= 53.96 P= 13736.97
