a11 a12 a13 a14 a21 a22 a23 a24 a31 a32 a33 a34
1 ࠠ | 2 ࠠ | 3 |
( . , , , a[3,3], a[1,2].
Const n=4; m=3;
Type mas= array[1..m,1..n] of integer;
Var a,b:mas;
:
1 ;
2 ;
3 .
:
a. ( , )
for i:=1 to 8 do
for j:=1 to 12 do
a[i, j]:=random(100);
b. ( , )
for j:=1 to 8 do
for i:=1 to 12 do
a[i, j]:=random(100);
1. . 5.1
Program example-1;
Const m=5; n=8;
Var a:array[1..m, 1..n] of real;
i,j:integer;
jmin:integer;{ }
begin
for i:=1 to m do
for j:=1 to n do
Read(a[i,j])
for i:=1 to m do begin
jmin:=1;
for j:=2 to n do
if abs([a[i,j]) < abs(a[i, jmin]) then jmin:=j;
writeln( ,I, , j, a[i, jmin]:5:1); end end.
5.1
5.1. .
2. (5,5) .
Program example2;
Const m=5; n=5;
Var a:array[1..m, 1..n] of integer;
S,k,i,j:integer;
Sr:real;{ }
begin
for i:=1 to m do
for j:=1 to n do
Read(a[i,j])
S:=0;
K:=0;
for i:=1 to m do begin
for j:=2 to n do
if a[i, j] mod 2=0 then
begin
s:=s+a[i, j];{ }
k:=k+1; { }
end;
if k=0 then writeln( )
else begin
sr:=s/k;
writeln(sr=,sr:5:2)
end;
end.
1. (8,8) .
2.. A(10,12)
3. (8,8)
4. (8,8) .
5. (8,8) .
6. (8,8) . .
7. ( 8,8 ),
:
: - . 0 10.
|
|
8. (8,11) .
9. (6,6) , , .
10. (8,8).
11. (6,9).
12. (3,3) , , .
13. (3,3), .
14. (5,5).
15. (4,4).
16. (10) (3,3). , .
17. , (10,12) ,