<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
Считая сверху: 3, 4, 5, 6.
A10=3*10^2+6*10^1+1*10^0+1*10^( -1 ) +0*10^( -2 )+5*10^( -3 )
var
a:array[1..15] of integer;
i, count:integer;
begin
count := 0;
writeln('Индексы отрицательных элементов:');
for i := 1 to 15 do
begin
a[i] := 15 - 4 * i;
if a[i] < 0 then
begin
inc(count);
write(i, ' ');
end;
end;
writeln;
writeln('Вего отрицательных элементов - ', count);
end.
<span><span>Выделите страницы или абзацы, к которым нужно применить книжную или альбомную ориентацию.ПРИМЕЧАНИЕ : Если для изменения ориентации страницы выделена только часть текста на странице, то выделенный фрагмент текста будет помещен на отдельной странице, а окружающий текст — на других страницах.</span>На вкладке Разметка страницы в группе Параметры страницы нажмите кнопку Поля. Нажмите кнопку Настраиваемые поля.На вкладке Поля выберите Альбомная или Книжная.В списке Применить выберите пункт К выделенному тексту.</span>
ПРИМЕЧАНИЕ : Перед фрагментом текста с новой ориентацией страниц и после него будут автоматически вставлены разрывы раздела. Если документ уже разбит на разделы, можно щелкнуть в любом месте нужного раздела (либо выделить их несколько), а затем изменить ориентацию страниц только в выбранных разделах.
К началу страницы
Если в этой статье нет ответа на ваш вопрос, вы можете обратиться за помощью к агенту поддержки OmniTech. В течение ограниченного периода пользователям, обратившимся впервые, предоставляется бесплатная поддержка (до 15 минут).