Инструкция пользователю

Данная программа предназначения для поиска среднего арифметического между минимальным и максимальным значением последовательности и для нахождения наиболее приближенного числа в числовой последовательности к среднему арифметическому.

При запуске программы на экране появляется приветственное сообщение и запрос на ввод размера числовой последовательности, которое должно быть целым числом в диапазоне от 1 до 100. В случае не удовлетворения данного условия, программа запросит повторить ввод данных.

После этого будет предложено ввести числовую последовательность.

После ввода значений массива программа рассчитает среднее арифметическое значений массива и найдет наиболее приближенное к среднему арифметическому число в введенной последовательности.

После выполнения всех операций программа выведет значение найденного числа.

Инструкция программисту

Данная программа предназначения для поиска числа числовой последовательности наиболее приближенного к среднему арифметическому максимального и минимального элементов последовательности.

В программе используются следующие константы:

MAX_SIZE = 100 - максимальный размер массива

Для описания массива объявлен тип:

VECTOR = array[1..MAX_SIZE] of REAL;

Структуры данных, используемые в программе, приведены в таблице 1.

Таблица 1 - Структуры данных, используемые в программе

Имя	Тип	Предназначение
RealArray	REAL	Последовательность
Max	REAL	Максимальное значение
Min	REAL	Минимальное значение
Average	REAL	Среднее арифметическое
NearNumber	REAL	Значение максимально приближенного числа
Sub	REAL	Разница между элементом и средним арифм.

Программа разбита на 4 подпрограммы:

1) Подпрограмма-процедура EnterArrayValue(VAR pArray : VECTOR; Size: INTEGER) - подпрограмма ввода значений массива pArray размером Size.

Структуры данных, используемых в подпрограмме EnterArrayValue приведены в таблице 2.

Таблица 2 - Структуры данных, используемые в подпрограмме

Имя	Тип	Предназначение
Формальные параметры
pArray	VECTOR	Последовательность
Size	INTEGER	Размер последовательности
Локальные переменные
Index	INTEGER	Счетчик цикла
CheckIn	string	Вводимое значение
Err	INTEGER	Код ошибки VAL

2) Подпрограмма-процедура FindMinMaxElements(VAR pArray : VECTOR; Size: INTEGER; VAR Min : REAL; VAR Max : REAL) - подпрограмма поиска в массиве pArray размером Size максимального и минимального значения.

Структуры данных, используемых в подпрограмме FindMinMaxElements приведены в таблице 3.

Таблица 3 - Структуры данных, используемые в подпрограмме

Имя	Тип	Предназначение
Формальные параметры
pArray	VECTOR	Последовательность
Size	INTEGER	Размер последовательности
Min	REAL	Минимальное значение
Max	REAL	Максимальное значение
Локальные переменные
Index	INTEGER	Счетчик цикла

3) Подпрограмма-процедура FindNearNumber(VAR pArray : VECTOR; Size: INTEGER; Min : REAL; Max : REAL; Average : REAL; VAR NearNumber : REAL) - подпрограмма поиска в массиве pArray размером Size максимально приближенного числа NearNumber к среднему арифметическому массива pArray.

Структуры данных, используемых в подпрограмме FindNearNumber приведены в таблице 4.

Таблица 4 - Структуры данных, используемые в подпрограмме

Имя	Тип	Предназначение
Формальные параметры
pArray	VECTOR	Вводимый массив
Size	INTEGER	Размер массива
Min	REAL	Минимальное значение
Max	REAL	Максимальное значение
Average	REAL	Среднее арифметическое
NearNumber	REAL	Максимально приближенное число к среднему арифметическому
Локальные переменные
Index	INTEGER	Счетчик цикла
Sub	REAL	Разница между среднем арифметическим и элементом массива

4) Подпрограмма-процедура PrintResult(Result : REAL) - подпрограмма вывода результата на экран.

Структуры данных, используемых в подпрограмме PrintResult приведены в таблице 5.

Таблица 5 - Структуры данных, используемые в подпрограмме

Имя	Тип	Предназначение
Формальные параметры
Result	REAL	Максимально приближенное число к среднему арифметическому