Функции. линия символов. составить функцию, которая рисует линию из символов symb, длинной count. пример: введите число: 7 введите символ: % результат

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.