1. Средства содержащиеся в пункте файл:
1) Создать - очистка окна редактирования и подготовка к вводу нового текста. При этом его файл получает имя Документ.
2) Открыть - открытие и загрузка файла с его поиском в диалоговом окне.
4)Сохранить как - запись файла на диск с заданным именем и заданной директорией (они задаются в появившемся диалоговом окне).
5)Сохранить - запись файла на диск с текущим именем в текущую директорию.
6) Печать - печать документа с установкой опций печати (выбор принтера и др.) в появившемся диалоговом окне.
Предварительный просмотр - просмотр страницы перед печатью (полезно для оценки расположения абзацев и встроенных рисунков).
7) Параметры страницы - установка параметров страницы, который позволяет задать размер и ориентацию страницы, величину полей.
Отправить - установка связи с электронной почтой для получения по ней документа или пересылки редактируемого документа по электронной почте.
8) Выход - завершение работы с редактором.
2. Меню Вставка порождает подменю с двумя командами:
1) Дата и время - вставка по месту расположения курсора строки с указанием текущего времени и даты.
2) Объект - открыть диалоговое окно Вставка объекта для включения в документ объекта, созданного другим приложением (рисунка, проигрываемого звукового файла и т.д.).
3. Задать параметры будущей печатной страницы можно в вкладке:
файл --> печать
program number1;
var a: array [1..5] of integer;
i,min,max: integer;
Begin
writeln('Введите 5 значений массива');
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 5 do
Begin
if (a[i]>=max) then max:=a[i];
if (a[i]<=min) then min:=a[i];
End;
for i:=1 to 5 do
Begin
if max=a[i] then
Begin
writeln('Максимальное значение: ',a[i],' [',i,']');
max:=a[i];
End;
if min=a[i] then
Begin
writeln('Минимальное значение: ',a[i],' [',i,']');
min:=a[i];
End;
End;
writeln('Среднее арифметическое: ',(min+max)/2);
End.
var i, proz: integer;
begin
proz:=1;
for i:=1 to 30 do begin mas30[i]:=-5+random (11); //Заполнение массива
write (mas30[i], ' '); //вывод значений массива
end;
writeln;
for i:=1 to 30 do if mas30[i]<0 then proz:=proz*mas30[i]; //Подсчет произведения отриц элементов
writeln (proz);
end.