Матрица, но без Нео...

Ребята!

Integer, real, char, string или boolean, которые мы до сих пор использовали в наших программах, относились к скалярным типам данных. С переменной скалярного типа в каждый момент времени может быть связано только одно значение.

Есть в программировании и другие типы данных - структурные.

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

Массив – упорядоченный набор однотипных значений (или структурный тип данных с фиксированным набором однотипных значений).

Описание массива:

имя:Array[тип индекса] of тип

Тип индекса – последовательность диапазонов целых значений, перечисленных через запятую (1..10,  3..4, 2..7). Количество диапазонов называется размерностью массива. Массив размерности 1 называется одномерным массивом (вектором), размерности 2 – двумерным массивом (матрицей).

Например,

Var a:array[1..5] of integer; b:array[1..3, 1..7] of char;

(Вектор а состоит из 5 элементов целого типа, матрица b состоит из 3 строк и 7 столбцов элементов символьного типа).

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

Т.о. элемент вектора определяется своим номером, а элемент матрицы номером строки и номером столбца, на пересечении которых он расположен.

Например,

- a[3] – третий элемент вектора a;

- b[2,5] – элемент матрицы b, расположенный на пересечении второй строки и пятого столбца.

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

Ввод и вывод элементов массива

Программа вводит элементы одномерного целочисленного массива с количеством элементов до 20, а затем выводит их на экран в строку

Program massive;

Var M:array[1..20] of  integer; i,N:integer;

Begin

  Writeln(’Введите количество элементов массива (не больше 20):’);

  Readln(N);

  Writeln(’Введите элементы массива:’);

  For i:=1 to N do

    Begin

      Write(’M[’,i,’]=’);

      Readln(M[i]);

    End;

  Writeln(’Элементы массива:’);

  For i:=1 to N do Write(M[i],’ ’);

  Writeln;

End.