4. выделите текст цвет которого требуется изменить.на вкладке главная в группе шрифт щелкните стрелку рядом с элементом цвет шрифта а затем выберите цвет.для быстрого форматирования текста можно использовать мини-панель инструментов с параметрами форматирования.
5.выделите текст или ячейки с текстом которые нужно изменить чтобы выделить весь текст в документе word нажмите клавишу CTRL+A.на вкладке главная в поле размер шрифта выберите нужный размер шрифта.
6.форматирование текста изменение размера шрифта положение относительно страницы начертание курсив жирный обычной и т.д. основная цель повышение читаемости и наглядности текста
Var ma:array of array of integer; n,m,i,j,res:integer; b:boolean; begin randomize; res:=1; b:=false; read(m,n); setlength(ma,m); for i:=0 to m-1 do setlength(ma[i],n); writeln('First matrix:'); for i:=0 to m-1 do begin writeln; for j:=0 to n-1 do begin ma[i,j]:=random(10); write(ma[i,j]:5); end; end; if n>m then begin for i:=0 to m-1 do for j:=i+1 to n-1 do if ma[i,j]>0 then begin; res:=res*ma[i,j]; b:=true; end; end else begin for i:=0 to n-1 do for j:=i+1 to n-1 do if ma[i,j]>0 then begin; res:=res*ma[i,j]; b:=true; end; end; if b=false then res:=0; writeln; writeln('Final array:'); for i:=0 to m-1 do begin writeln; for j:=0 to n-1 do begin if ma[i,j]=0 then ma[i,j]:=res; write(ma[i,j]:5); end; end; writeln; writeln('res=',res); end.
4. выделите текст цвет которого требуется изменить.на вкладке главная в группе шрифт щелкните стрелку рядом с элементом цвет шрифта а затем выберите цвет.для быстрого форматирования текста можно использовать мини-панель инструментов с параметрами форматирования.
5.выделите текст или ячейки с текстом которые нужно изменить чтобы выделить весь текст в документе word нажмите клавишу CTRL+A.на вкладке главная в поле размер шрифта выберите нужный размер шрифта.
6.форматирование текста изменение размера шрифта положение относительно страницы начертание курсив жирный обычной и т.д. основная цель повышение читаемости и наглядности текста
Var
ma:array of array of integer;
n,m,i,j,res:integer;
b:boolean;
begin
randomize;
res:=1;
b:=false;
read(m,n);
setlength(ma,m);
for i:=0 to m-1 do
setlength(ma[i],n);
writeln('First matrix:');
for i:=0 to m-1 do
begin
writeln;
for j:=0 to n-1 do
begin
ma[i,j]:=random(10);
write(ma[i,j]:5);
end;
end;
if n>m then
begin
for i:=0 to m-1 do
for j:=i+1 to n-1 do
if ma[i,j]>0 then
begin;
res:=res*ma[i,j];
b:=true;
end;
end
else
begin
for i:=0 to n-1 do
for j:=i+1 to n-1 do
if ma[i,j]>0 then
begin;
res:=res*ma[i,j];
b:=true;
end;
end;
if b=false then res:=0;
writeln;
writeln('Final array:');
for i:=0 to m-1 do
begin
writeln;
for j:=0 to n-1 do
begin
if ma[i,j]=0 then ma[i,j]:=res;
write(ma[i,j]:5);
end;
end;
writeln;
writeln('res=',res);
end.