Составьте программу выводящую на экран значения любого элемента массива в [10] вещественных чисел, по введеному с клавиатуры индексу.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\", Приём;

ПЕР
  B: РЯД 10 ИЗ ВЕЩ;
  индекс: ЦЕЛ;

УКАЗ
  ОТ индекс := 0 ДО РАЗМЕР(B) - 1 ВЫП
    B[индекс] := УЗК(Матем.случ())
  КОН;
  Вывод.Цепь("Введите индекс: ");
  индекс := Приём.Число();
  ЕСЛИ индекс >= РАЗМЕР(B) ИЛИ индекс < 0 ТО
    Вывод.Цепь("^ПНХ")
  ИНАЧЕ
    Вывод.ЧВещ("^%g", B[индекс], 0, 0, 0)
  КОН

КОН Задание.

Знакомство с пользовательским интерфейсом SketchUp

К основным элементам интерфейса SketchUp относятся строка заголовка, меню, панели инструментов, область рисования, строка состояния и панель измерений. Пользовательский интерфейс SketchUp показан на следующем рисунке.  

Строка заголовка

Строка заголовка содержит стандартные кнопки Microsoft Windows ("Закрыть", "Свернуть" и "Развернуть") в правой части, а также название файла, открытого в данный момент.

При запуске SketchUp отображается пустая область рисования. Если в строке заголовка отображается надпись "Без названия", это означает, что пользователь еще не сохранял работу.

Меню

Меню расположены под строкой заголовка. В этих меню доступно большинство инструментов, команд и настроек SketchUp. Строка меню представлена следующими элементами: "Файл", "Правка", "Вид", "Камера", "Рисование", "Инструменты", "Окно" и "Справка".

Панели инструментов

Панели инструментов расположены под строкой меню у левого края окна приложения. Набор отображаемых в них инструментов и элементов управления определяется пользователем.

При запуске SketchUp отображается панель инструментов "Начальная". Дополнительные панели инструментов можно добавить, выбрав "Вид" > "Панели инструментов".

Область рисования

В области рисования создаются модели. 3D-пространство области рисования визуально определяется осями рисования. Оси рисования представлены тремя цветными прямыми, перпендикулярными друг другу. Эти оси при работе чувствовать направления в 3D-пространстве.

В области рисования также имеется простая модель человека представить 3D-пространство.

Строка состояния

Строка состояния представляет собой длинную серую прямоугольную область под областью рисования.  

Слева в строке состояния отображаются подсказки для используемых в данный момент инструментов рисования, включая описание специальных функций, доступных с быстрых клавиш. Понаблюдайте за строкой состояния, чтобы узнать о расширенных возможностях инструментов SketchUp.

Чтобы просмотреть сообщение в строке состояния полностью, используйте метку изменения размера для увеличения области рисования.

Панель измеренийПоле измерений находится справа от строки состояния. На панели измерений при рисовании отображается информация о размерах. Для изменения размера выбранных объектов можно вводить значения на панели измерений, например при создании линии определенной длины.

Метка изменения размера окнаСправа от панели измерений находится метка, путем перетаскивания которой можно изменить размер окна программы.

3.Работа в 3D

Создание моделей в SketchUp состоит из двух основных операций:

Просмотр моделей в 3D-пространстве с инструментов камеры ("Вращать", "Увеличить масштаб", "Уменьшить масштаб", "Панорамировать").

Создание двумерных поверхностей и фигур; преобразование двумерных поверхностей в трехмерные геометрические элементы с инструмента "Тяни/толкай".

Объяснение: взято с интернета

1.

program z1;

var V1,V2,S:integer;

begin

write ('V1 = ');

readln (V1);

write ('V2 = ');

readln (V2);

write ('S = ');

readln (S);

if S/V1 = S/V2 then writeln ('Автомобили приехали одновременно');

if S/V1 > S/V2 then writeln ('Второй автомобиль приехал быстрее, а первый ехал дольше.');

if S/V1 < S/V2 then writeln ('Первый автомобиль приехал быстрее, а второй ехал дольше.');

end.

2.

program z2;

var a:integer;

begin

write ('Введите четырёхзначное число: ');

readln (a);

if (a div 1000 + a div 100 mod 10) > (a mod 100 div 10 + a mod 10) then

begin

writeln ('Сумма всех цифр числа ',a div 1000 + a div 100 mod 10 + a mod 100 div 10 + a mod 10);

writeln ('Произведение всех цифр числа ',(a div 1000) * (a div 100 mod 10) * (a mod 100 div 10) * (a mod 10))

end

end.