Const nn=20; var d:array[1..nn,1..nn] of integer; zr,zc:array[1..nn] of boolean; { строки и столбцы } n,m,i,j,nr,nc:integer; begin Write('Укажите n и m: '); Read(n,m); Randomize; Writeln('И с х о д н ы й м а с с и в'); nr:=0; nc:=0; for i:=1 to n do zr[i]:=False; for j:=1 to m do zc[j]:=False; for i:=1 to n do begin for j:=1 to m do begin d[i,j]:=Random(21)-10; Write(d[i,j]:4); if d[i,j]=0 then begin zr[i]:=True; zc[j]:=True end; end; Writeln end; for i:=1 to n do if zr[i] then for j:=1 to m do d[i,j]:=0; for j:=1 to m do if zc[j] then for i:=1 to n do d[i,j]:=0; Writeln('М а с с и в - р е з у л ь т а т'); for i:=1 to n do begin for j:=1 to m do Write(d[i,j]:4); Writeln end end.
Пример Укажите n и m: 7 12 И с х о д н ы й м а с с и в -10 8 -4 -3 -8 9 1 -6 4 -6 5 -1 -8 -2 -8 -7 -3 -1 4 4 5 -1 7 -6 8 -5 8 -1 -8 9 8 -4 -6 -2 0 4 7 -4 8 -9 3 2 9 3 3 6 9 4 9 -3 8 8 -4 9 7 2 -10 -8 -1 8 -10 -8 -8 6 -4 -2 -6 4 8 -1 -3 -9 2 2 -9 -7 0 -6 2 -9 -4 -6 0 5 М а с с и в - р е з у л ь т а т -10 8 -4 -3 0 9 1 -6 4 -6 0 -1 -8 -2 -8 -7 0 -1 4 4 5 -1 0 -6 0 0 0 0 0 0 0 0 0 0 0 0 7 -4 8 -9 0 2 9 3 3 6 0 4 9 -3 8 8 0 9 7 2 -10 -8 0 8 -10 -8 -8 6 0 -2 -6 4 8 -1 0 -9 0 0 0 0 0 0 0 0 0 0 0 0
nn=20;
var
d:array[1..nn,1..nn] of integer;
zr,zc:array[1..nn] of boolean; { строки и столбцы }
n,m,i,j,nr,nc:integer;
begin
Write('Укажите n и m: '); Read(n,m);
Randomize;
Writeln('И с х о д н ы й м а с с и в');
nr:=0; nc:=0;
for i:=1 to n do zr[i]:=False;
for j:=1 to m do zc[j]:=False;
for i:=1 to n do begin
for j:=1 to m do begin
d[i,j]:=Random(21)-10;
Write(d[i,j]:4);
if d[i,j]=0 then begin zr[i]:=True; zc[j]:=True end;
end;
Writeln
end;
for i:=1 to n do
if zr[i] then
for j:=1 to m do d[i,j]:=0;
for j:=1 to m do
if zc[j] then
for i:=1 to n do d[i,j]:=0;
Writeln('М а с с и в - р е з у л ь т а т');
for i:=1 to n do begin
for j:=1 to m do Write(d[i,j]:4);
Writeln
end
end.
Пример
Укажите n и m: 7 12
И с х о д н ы й м а с с и в
-10 8 -4 -3 -8 9 1 -6 4 -6 5 -1
-8 -2 -8 -7 -3 -1 4 4 5 -1 7 -6
8 -5 8 -1 -8 9 8 -4 -6 -2 0 4
7 -4 8 -9 3 2 9 3 3 6 9 4
9 -3 8 8 -4 9 7 2 -10 -8 -1 8
-10 -8 -8 6 -4 -2 -6 4 8 -1 -3 -9
2 2 -9 -7 0 -6 2 -9 -4 -6 0 5
М а с с и в - р е з у л ь т а т
-10 8 -4 -3 0 9 1 -6 4 -6 0 -1
-8 -2 -8 -7 0 -1 4 4 5 -1 0 -6
0 0 0 0 0 0 0 0 0 0 0 0
7 -4 8 -9 0 2 9 3 3 6 0 4
9 -3 8 8 0 9 7 2 -10 -8 0 8
-10 -8 -8 6 0 -2 -6 4 8 -1 0 -9
0 0 0 0 0 0 0 0 0 0 0 0
program t;
var
a,c:real;
i:integer;
begin
i:=1;
a:=1000;
write('1');
while(i<>6) do
begin
a:=a+a*(2*0.01);
inc(i);
end;
writeln('Спустя ',i,' месяцев =',a:4:2);
a:=1000;
i:=1;
write('2');
while(true) do
begin
a:=a+a*(2*0.01);
inc(i);
if(a>1200)then begin writeln('Через ',i); break; end;
end;
a:=1000;
c:=0;
i:=1;
write('3');
while(true) do
begin
c:=a*(2*0.01);
a:=a+c;
inc(i);
if(c>50) then begin writeln('через ',i,' месяцев'); break; end;
end;
end.