18. в массиве из 10 целых чисел заменить все элементы, меньшие среднего арифметического, на минимальный элемент, а все большие – на максимальный. составить программу в delphi7

Лабораторная работа № 8. Работа с массивами

Теоретические сведения

Массив – это упорядоченный набор данных одного типа, снабженных индексами.

Индексы предназначены для нахождения определенного элемента массива, т.е. положение каждого элемента в массиве определяется его индексом. В этом и заключается упорядоченность. Тип компонент называется базовым типом массива.

В VBA массив рассматривается как переменная структурированного типа. Массиву присваивается имя, посред­ством которого можно ссылаться на него, как на единое целое, так и на любую из его компонент. Переменная с индексом — идентификатор компоненты мас­сива. Формат записи:

<имя массива> (<индекс>), где индекс может быть выражением порядкового типа.

Видим, что индексы принято указывать в круглых скобках после имени массива. По умолчанию нумерация элементов массива начинается с 0. Говорят, что 0 – базовый индекс.

Например, если А – массив из пяти чисел: 2, 3, 7, 9, 6, то А (0) = 2 – первый элемент массива, А (4) = 6 – последний.

Описание массива определяет имя, размер массива, базо­вый тип и производится в разделе переменных. В VBA имеются следующие описания массивов:

1.             <имя массива> (<номер последнего элемента>) [As <тип>]

2.             <имя массива> (<начальный индекс> To <конечный индекс>) [As <тип>]

Отметим, что второй позволяет изменить базовый индекс. Другим изменения базового индекса является использование оператора Option Base, который имеет следующий синтаксис:

Option Base <базовый индекс>

<базовый индекс> – единица или ноль.

Этот оператор применяется перед процедурой, аналогично оператору Option Explicit.

Например, для изменения базового индекса с 0 на 1 используется оператор Option Base 1.

Массив A, который был рассмотрен, требует одного индекса для указания любого элемента. Такой массив называется одномерным (или линейным) В одномерных массивах хра­нятся значения линейных таблиц. Примеры описания одно­мерных массивов:

1.             Dim A (12) As Byte

2.             Dim A (1 To 12) As Byte

3.             Dim Bin (5) As Integer

4.             Dim Str_mass (4) As String

5.             Dim K (7)

6.             Dim L (0 To 3)

Заполнение массива в программе производится поэлементно. Чаще всего для этого используется цикл с параметром, где в качестве параметра применяется индексная переменная. Возможно заполнение массива путем простого присвоения значения элементам:

Dim B (1 To 3) As Integer

B (1) = 2

B (2) = 18

B (3) = 6

Удобным определения одномерных массивов является функция Array, преобразующая список элементов, разделенных запятыми, в вектор из этих значений, и присваивающая их переменной типа Variant.

Dim A As Variant

A = Array (10, 20, 35, 70)

Иногда в процессе выполнения программы требуется изменять размер массива. В этом случае первоначально массив объявляют как динамический. Для этого при объявлении массива не указывают его размерность. Например,

Dim R () As Single

В программе следует вычислить необходимый размер массива и связать его с некоторой переменной, например, n; затем изменить размер динамического массива с оператора ReDim:

ReDim [Preserve] Имя (<номер последнего элемента>) [As <тип>]

ReDim [Preserve] Имя (<начальный индекс> To <конечный индекс>) [As <тип>]

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

Если шестеренка с буквами двигается против часовой, а стрелка стоит на месте то буквы будут перечисляться по порядку, от А до Я.
Так как главная шестеренка вращает остальные, то вторая будет двигаться по часовой, это значит что начиная с нуля цифры на второй шестеренке будут уменьшаться, 0, 9, 8...1 и по кругу.
Далее третья шестеренка будет двигаться против часовой значит цифры будут идти по нарастающей, от 0 до 6. Составим таблицу
Таблица в картинках
О Л И М П И А Д А = 51 85 12 76 42 12 00 64 00

1) крик 
Первоначально люди использовали лишь средства ближней связи — речь, слух, зрение. О надвигающейся опасности можно было предупредить криком, правда, услышать его могли на расстоянии всего нескольких сот метров. 

2) барабан 
Звук барабана, особенно популярный среди африканских племен, был донести сигнал тревоги уже несколько километров. 

3) интернет 
В 1969 году в США начала функционировать первая в компьютерная сеть. Она положила начало формированию всемирной компьютерной сети Интернет (Internet), огни миллионов компьютеров, включённых в Интернет, образуют единую информационную среду, открывающую любому человеку доступ ко всему информационному богатству человечества. 

4) передатчик 
Рассмотрим несколько ситуаций, связанных с передачей информации. 
При переходе дороги на регулируемом перекрёстке вы (приёмник информации) воспринимаете зелёный сигнал светофора (источника информации) как разрешение перейти дорогу. 

5) радиосвязь 
В 1895 году русский изобретатель А. С. Попов открыв радиосвязь, не требующую проводов и кабелей. Вначале радиосвязь мало чем отличалась от телеграфа. 

6) морзе 
До середины 20-х годов XX века использовался специальный помехоустойчивый код Морзе. Со временем были изобретены различные помехозащитной записи звука и появилась звуковая радиосвязь, в человеческий быт вошли радиоприёмники. Сегодня существует очень много мощных радиостанций. Чтобы не испытывать взаимных помех, они работают на разных радиоволнах — длинных, средних, коротких, ультракоротких и дециметровых. Но до сих пор в экстремальных ситуациях, когда существуют сильные природные помехи, используют радиотелеграфный передачи информации. 

7) приёмник 
В передаче информации всегда участвуют две стороны: тот, кто передаёт информацию (источник информации) , и тот, кто её получает (приёмник информации) . 

8) телевидение