13. МАССИВЫ

Одномерные массивы

Массив это упорядоченная совокупность конечного числа данных одного типа. Простейшим примером массива может служить линейная таблица. Значения, образующие линейную таблицу, являются элементами массива, а их порядковые номера в таблице называются индексами. Можно сказать, что одномерный массив соответствует понятию вектора. Индекс определяет положение элемента массива относительно его начала.

Общая форма описания переменной:

Var <имя>: Array |<тип-индексов>| of<тип-элементов>

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

Например: M[1],M[2],…,M[N].

Для организации автоматического ввода значений следует воспользоваться функцией библиотеки CRT Random. Эта функция возвращает случайное число из диапазона от 0 до n. Для этого необходимо в основной программе инициализировать датчик случайных чисел командой

Randomize.

Формат вызова функции Random:

Random (m), где m – значение, указывающее на правую границу диапазона выдаваемых значений.

Например: создание линейной таблицы размерностью 10, числами из диапазона от 0 до 10.

Program Vector_Full;

Const n=10;

Type vector = array [1..n] of Integer;

79

Var v:vector;

Procedure Enter (Var vect: vector); Var i: Integer;

Begin

For i:=1 to n do vect[i]:=Random(10);

End;

Begin

Randomize; Enter (v);

End.

Пример решения задачи

Найти максимальное число в последовательности.

program maximum;

Var

a:array [1..10] of integer;

n:byte;

m:integer;

begin

for n:=1 to 10 do readln (a[n]);

m:=a[1];

for n:=2 to 10 do

if a[n]>m then m:=a[n]; writeln ('maximum = ', m);

readln end.

Сортировка одномерных массивов

80