В этом методе сравниваются два соседних элемента массива.

BEGIN

Program Vvod;

Вывод в файл.

Вывод на экран;

Значения отдельных элементов массива можно задать оператором присваивания.

Ввод из файла;

Ввод с клавиатуры;

Типизированной константой;

После этого присваивания все 5 элементов массива b1 получат те же значения, что и в массиве a1.

Var

Тип-массив задается непосредственно в разделе описания констант и переменных.

Тип-массив можно вводить непосредственно при определении переменных или типизированных констант.

Если размерность массива меньше указанной в Type, свободные позиции заполняются нулями.

Const

Type

Размерность реальных массивов не должна превышать верхней границы, указанной в описании типа.

Var

Type

mass = Array[1..5] of integer;

m1= array[1..10] of real;

m2 = array[1..3] of char;

m3 = array[1..5] of byte;

a1, b1,c1 : mass;

a2 : m1;

b2 : m2; c2 : m3;

2. Типизированная константа использует тип-массив, объявленный ранее.

mass = array[1..5] of integer;

Y : mass = (2, 4, 6, 8,0); {Y(4)}

X : mass = (1, 5, 7, 0,0); {X(3)}

Const n=4; m: integer=10;

a1 : array[1..4] of integer = (1, 4, 3, 7);

a2 : array[1..3] of real = (1., 4., -5);

a3 : array[1..3] of char = (‘n’, ‘o’, ‘t’);

a1, b1 : array[1..5] of integer;

a5, c1: array[1..5] of integer;

a2 : array[1..m] of real;

При таком объявлении массивов a1, b1, c1 и a5 следует помнить, что их типы не будут идентичными никаким другим типам, даже если они имеют одинаковую структуру. Поэтому передавать их как параметры в подпрограмму нельзя, нельзя также присвоить одному массиву значения другого массива – в таком случае допустимо лишь покомпонентное присваивание.

Допустим оператор b1 := a1;

Недопустим оператор a5 :=a1; (они не идентичны)

3. Ввод – вывод одномерных массивов.

Значения элементов одномерного массива ( вектора ) можно ввести в программу следующими способами:

Вывод элементов массива и результатов вычислений :

Type mass = array[1..5] of integer;

Const A: mass = ( 2, -4, 3, -6, 8 );

Var B: mass; {или B,C: mass;}

C: array[1..4] of integer;

i: byte;

{ ввод массива B с клавиатуры }

writeln(‘ введите массив B‘);

For i := 1 to 5 do read(b[i]);

{ ввод массива C с клавиатуры }

writeln(‘ введите массив С‘);

For i := 1 to 4 do read(c[i]);

{ вывод массива A на экран }

writeln(‘ массив A:’);

For i := 1 to 5 do write(A[i]:5,’ ‘);

writeln; {выводится вектор-строка}

{ вывод массива B на экран }

writeln(‘ массив B:’);

For i := 1 to 5 do

writeln(B[i]); {выводится вектор-столбец}

СОРТИРОВКА МАССИВОВ

1. Сортировка с помощью прямого
обмена ( метод “пузырька” ).

Если первый из них больше второго, то эти элементы меняют местами (перестановка ) и т.д., т.е. Max элемент выдавливается в конец массива ( при сортировке по возрастанию ).
Затем эта операция повторяется снова до окончательного упорядочивания.

i= 1 2 3 4

5 4 1 1

4 1 3 2

1 3 2 3

3 2 4 4

2 5 5 5