Массивы

Массив – это упорядоченная последовательность данных одного типа

В памяти компьютера массив можно представить в виде последовательности блоков памяти, имеющих одно имя и отличающихся каким-то признаком (индексом).

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

Каждый элемент массива обозначается именем массива с индексом (Например, A[2])
Элементы массива упорядочены по значениям индекса

Массивы:
одномерные
двумерные

Одномерные массивы
Описание массива:
<Имя>:array[<элем 1>...<элемN>]of<тип>
<элем 1> и <элемN> - номера первого и последнего элементов массива

Пример
Например, строка
Var Mas: array[1..17] of real;
Описывает массив из 17 чисел типа Real, имеющих порядковые номера (индексы) с 1,2,…,17, а строка
Var Mas: array[0..15] of integer;
Описывает массив из 16 целых чисел с номерами 0,1,…,15

Вопросы:
Var a:array [1..10] of integer;
i:real;
Var a:array [1..10] of real;
i:char;
Var a:array [1..n] of integer;
i:integer;
Var a:array [1..10] of integer;
i:string;

Присвоение значений элементам массива может происходить с помощью:
Оператора Оператора Read
Описания элементов массива в разделе описания констант
Функции Функции Random

Обработка массива (примеры)
Сумма элементов массива
Максимальный (минимальный) элемент массива

var i,n: integer;
a:array[1..10000] of integer;
begin
write('Введите размер массива '); readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do write(a[i]:5);
end.

const n=5;
a:array[1..5] of integer=(4,5,7,7,0);
var i: integer;
begin
for i:=1 to n do write(a[i]:5);
end.

var i,n: integer;
a:array[1..10000] of integer;
begin
write('Введите размер массива '); readln(n);
for i:=1 to n do begin
a[i]:=random(10);
end;
for i:=1 to n do write(a[i],' ');
end.

var i,n,s: integer;
a:array[1..10000] of integer;
begin
write('Введите размер массива '); readln(n);
for i:=1 to n do begin
a[i]:=random(10);
end;
for i:=1 to n do begin
write(a[i],' ');
s:=s+a[i];
end;
writeln;
write('Сумма элементов массива =',s);
end.