Линия (Line) – при перемещении курсора в любом направлении Контрольная панель информирует о ее текущей длине в виде.
Дуга (Аrc) – при перемещении курсора от начальной точки VCB вначале информирует о текущей длине хорды. Для назначения нужной длины вводим свое значение. Можно также назначить количество сегментов, образующих дугу вводом значения.
Прямоугольник (Rectangle) – при перемещении курсора от начального угла к диагонально расположенному конечному VCB информирует о длинах сторон прямоугольника.
Окружность (Circle) и Многоугольник (Polygon) – при перемещении курсора от назначенного центра окружности VCB информирует о текущей величине радиуса. Можно переназначить эту величину непосредственно после завершения построения .
Перемещение (Move) – при перемещении элемента инструментом VCB работает с величинами смещения точно так же, как и в инструменте Линия (Line). Но, кроме того, очень удобно применять VCB для управления созданием копий, которые появляются при перемещении с нажатой клавишей Ctrl.
Вращение (Rotate) – в принципе, здесь все приемы работы с VCB аналогичны инструменту Перемещение (Move), только они применяются к величинам углов поворота (Angle).
Масштаб (Scale) – здесь VCB показывает текущие (и, естественно, можно назначить свои) коэффициенты масштабирования, а также подсказывает по каким осям это одновременно происходит.
Тянуть/Толкать (Push/Pull) и Контур (Offset) – поскольку здесь также речь идет о дистанции перемещения, VCBработает с этими величинами, как и в инструменте Линия (Line).
Лупа (Zoom) – здесь VCB показывает текущую (и, естественно, можно переназначить свою) величину угла обзора (поля зрения) камеры в градусах.
Объяснение:Лучший ответ и сердечко долго писал
program zz1;
const n = 15; // задаем количество элементов в массиве
var i, k:integer; // задаем переменные целого типа
m,v:array [1..n] of integer;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(21);
for i:=1 to n do // выводим массив на экран
write(m[i],' ');
writeln; // переходим на новую строку для вывода ответа
for i:=1 to n do
if (m[i] > 9) and (m[i] < 100) then k:=k + 1;
writeln(' количество двузначных элементов = ', k); // выводим ответ
end.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, сумма: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите N: ");
N := Приём.Число();
СОЗДАТЬ(массив, N);
Вывод.Цепь(".^Введите элементы массива:^");
сумма := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] > сч ТО
УВЕЛИЧИТЬ(сумма, массив[сч])
КОН
КОН;
Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)
КОН Задание.