Описание и задание одномерного массива

Одномерный массив - это фиксированное количество элементов одного типа, объединенных одним именем, причем каждый элемент имеет свой уникальный номер и номера элементов идут подряд. Например, введем 30 целых чисел от 25 до 54 и объединим их общим именем А.

 

№	1	2	3	...	30
A	25	26	27	...	54

Имя А - общее для всех элементов. Элементы массива - целые числа, их 30.

Опишем в разделе описания тип − одномерный массив, состоящий из 30 целых чисел.

Type myarray = Array[1..30] Of Integer;

Напомним, что раздел типов начинается со служебного слова Type, после него идут имя нового типа и его описание. Между именем типа и его описанием ставится знак "равно" (в разделе описания переменных между именем переменной и ее описанием ставится двоеточие). Тогда:

myarray - это имя нового типа;

Array - служебное слово (в переводе с английского означает "массив", "набор");

[1..30] - в квадратных скобках указывается номер первого элемента, затем, после двух точек, номер последнего элемента массива; в этом примере первый элемент имеет номер 1, а последний - номер 30;

Of - служебное слово (в переводе с английского означает "из");

Integer - тип всех элементов массива.

Таким образом, одномерный массив описывается следующим образом:

Array[n1..n2] Of <тип элементов>;

где n1 - номер первого элемента, n2 - номер последнего элемента, в качестве типа элементов может использоваться любой тип данных, кроме файлового.

Для того чтобы обратиться к элементу этого массива, необходимо указать имя массива и в квадратных скобках - номер элемента.

Например, первый элемент массива А - А[1], а пятый - А[5].

Program Example_88;

Const n=30; {Количество элементов массива}

Var A: array[1..n] Of Integer;

       i,sum: Integer;

Begin

Writeln('Введите ', n, ' чисел');

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

For i:=1 To n Do

Readln(a[i]); {Чтение i-гo элемента}

{Вывод массива}

For i:=1 To n Do

Write(a[i]: 3); {Вывод i-гo элемента}

sum:=0; {Начальное значение суммы}

For i:=1 To n Do

       sum:=sum+a[i];  {К уже найденной сумме прибавляем  i-й элемент}

Writeln('их сумма равна ',sum);

Readln;

End.