6
B
8
1: A(N,M). , , , .
8. . .
: random.
, , 1
1
n, m | real | |
i,j | real | |
sum | real | |
a | integer |
1.3
. 1
Program dvumernie_massivi;
Const
n=5; m=5;
var i,j, sum, maxsum, minsum, k, s: integer;
a: array [1..n, 1..m] of integer;
Begin
maxsum:=0; minsum:=100;
randomize; writeln ('dvumernii massiv');
for i:=1 to n do begin sum:=0;
for j:=1 to m do begin
a[i,j]:=random (10);
write (a[i,j]:3,' ');
sum:=sum+a[i,j];
if sum>maxsum then begin maxsum:=sum; k:=i;
end; end;
if sum<minsum then begin minsum:=sum; s:=i;
end; end; readln;
begin write ('stroka s macsimalinoy summoy:');
i:=k; for j:=1 to m do begin
write (a[i,j]:3,' ');
end;
writeln; write ('macsimalinaya summa=',maxsum);
end; writeln;
write ('stroka s minimalinoy summoy:');
i:=s; for j:=1 to m do begin write (a[i,j]:3,' '); end;
writeln; write ('minimalnay summa=',minsum);
readln;
End.
, . .
1:
dvumernii massiv
1 2 3 2 3
4 5 6 5 6
7 8 9 4 2
1 3 7 8 4
2 4 5 4 2
stroka s macsimalinoy summoy: 7 8 9 4 2
macsimalinaya summa=32
stroka s minimalinoy summoy: 1 2 3 2 3
minimalnay summa=11
2:
8. .
: random.
, , 2.
2
n, m | real | |
i, j k,l | real | |
h | real | |
a, b | integer |
1.3
. 2
Program dvumernie_massivi;
Const
n=5; m=5;
var i,j, k,l, h: integer;
a: array [1..n, 1..m] of integer;
b: array [1..n, 1..m] of integer;
Begin
|
|
h:=0; randomize;
writeln ('Deistvie nad massivami') writeln ('Ishodnii dvumernii massiv');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random (50); write (a[i,j]:3,' ');
end; writeln; end; writeln;
for i:=1 to n do begin
for j:=1 to m do begin
b[i,j]:=a[i,j]; end; end;
writeln ('Nepovtoryauchiesya elementi');
for i:=1 to n do begin
for j:=1 to m do begin
h:=0;
for k:=1 to n do begin
for l:=1 to m do begin
if a[i,j]=b[k,l] then
h:=h+1; end; end;
if h<2 then write (a[i,j]:3,' '); end; end;
readln;
End.
1:
Deistvie nad massivami
Ishodnii dvumernii massiv
2 7 3 1 3
4 5 6 5 6
7 8 9 4 3
3 3 7 5 4
4 4 5 4 1
Nepovtoryauchiesya elementi
2 6 8 9
3:
8. n * m. , .
: n, m .
, , 3.
3
n, m | real | |
i, j | real | |
sum | real | |
a | integer |
1.3
. 3
program dvumernie_massivi;
Const
row=100;
col=100;
var i,j,n,m,sum,h: integer;
a: array [1..row, 1..col] of integer;
Begin
writeln ('Vvedite kolichestvo strok i stolbcov'); readln (n,m);
h:=0; randomize;
writeln ('Deistvie nad massivami');
writeln ('Ishodnii dvumernii massiv');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random (10);
write (a[i,j]:3,' ');
end;
writeln;
end;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]=0 then begin h:=j; sum:=0;
for i:=1 to n do begin
sum:=sum+a[i,h];
end;
writeln ('summa elementov ',h,' stolbca= ',sum);
end; end; end;
readln;
end.
, . .
1:
Vvedite kolichestvo strok i stolbcov 5 5
Deistvie nad massivami
Ishodnii dvumernii massiv
3 7 3 1 3
4 0 6 5 0
7 8 9 4 3
5 3 7 5 4
6 4 5 4 0
summa elementov 2 stolbca= 22
summa elementov 5 stolbca= 10
4:
8. [1:m, 1:n] . , . , .
: n m, .
, , 4.
4
n, m | integer | |
a | integer | |
i,j | integer | |
h, k, | integer |
1.3
. 4
|
|