:
1. ;
2.
={mij}, i=1,n; j=1,k, n - , k - , mij - : 0 500. SUM, . Random.
.
|
|
Uses crt;
{ }
Var M:array[1..50,1..100]of integer;
Sum:array[1..50] of longint;
n,k,i,j,imin:integer;
Min:longint;
BEGIN clrscr;
{ }
writeln(' ');
readln(n,k);
Randomize; { . }
{ }
for i:=1 to n do
for j:=1 to k do
M[i,j]:=Random(500);
writeln(' ');
for i:=1 to n do
begin
for j:=1 to k do
write(M[i,j]:4); writeln;
end;
writeln(' ');
write(' H : ');
for i:=1 to n do
write(i,' ');writeln;
write(' : ');
for i:=1 to n do
begin
Sum[i]:=0;
for j:=1 to k do
Sum[i]:=Sum[i]+M[i,j];
write(Sum[i], ' ');
end;writeln;
{ }
Min:=Sum[1]; imin:=i;
for i:=1 to n do
if Sum[i] <= Min then
begin
Min:=Sum[i]; imin:=i;
end;
writeln(' = ',Min,' ',imin);
readln;
END.
1. *,
. - , - .
.
.
.
2. *, S
. - , - .
.
.
.
3. *, TR . - , - . . . .
4. *,, T . - , - . . . .
|
|
5. L*, TR . L- , - . . . .
6. *, T . - , - . . . .
7. *, . - , - . . . .
8. *, . - , - . . . .
9. *,, . - , - . . . .
10. *,, . - , - . . . .
11. *, . - . . . .
12. *, , . - . . . .
13. *, , . - . . 1 . .
14. *, , . - . . . .
15. *, , . - . . 1 . .
|
|
16. *, , . - . . 0 . .
17. *, , . - . . 0 . .
18. *, , . - . . . .
19. *, , . - . . . .
20. *, , . - - . . . .