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

Одномерный массив – это линейная таблица, т.е. таблица, элементы которой располагаются в одну строку или столбец.

К

Р

А

С

О

Т

А

В данной линейной таблице семь элементов. Каждый элемент данной таблицы представляет собой букву.

Элементами массива могут быть числовые и текстовые величины. В разделе переменных Var массив записывается следующим образом: 

x: array [1..7] ofchar;

Элемент одномерного массива записывается так: x[5] – пятый элемент одномерного массива x (его значением является буква «О»)

Рассмотрим все способы заполнения массивов и научимся их использовать на практике.

1 способ - Введение данных из клавиатуры:

Задача: Заполнить массив 5 целыми числами, которые вводятся с клавиатуры

Program z1;

Uses crt;

Var mass:array[1..5] of integer;

        x, i: integer;

begin

            clrscr;

            for i:=1 to 5 do

                        begin

                                   write('mass[',I,']= ');

                                   read(mass[i]);

                        end;

            for i:=1 to 5 do write(mass[i],' ');

            readkey

end.

2 способ - Используя генератор случайных чисел:

Rimdomize - инициализация генератора случайных чисел.

Random(n) - генерация случайных чисел в промежутке [0; n-1].

Random(b-a+1)+a - генерация случайных чисел в промежутке [a; b].

Задача: Заполнить массив 5 целыми случайными числами в промежутке [0;100].

Program z2;

Uses crt;

Var mass:array[1..5] of integer;

       i: integer;

begin

            clrscr;

            for i:=1 to 5 do

                        begin

                                   mass[i]:= random(101);

                                   write(mass[i],' ');

                        end;    

            readkey

end.

3 способ - Введение, используя операции:

Задача: Заполнить массив 5 целыми числами, которые вдвое больше своего индекса

Program z3;

Uses crt;

Var mass:array[1..5] of integer;

       i: integer;

begin

            clrscr;

            for i:=1 to 5 do

                        begin

                                   mass[i]:= i*2;

                                   write(mass[i],' ');

                        end;    

            readkey

end.