Описание в программе
Читайте внимательно условие задачи. Описывайте массив по максимально возможному размеру, указанному в условиях задач.
Фактический размер вводится в диалоге с клавиатуры или из текстового файла.
Const nmax= 100; { описываем массив с «запасом»}
{в задаче обычно указывается возможный размер}
Type vector= array[1..nmax] of Integer;
Var a: vector;
Ввод и вывод массивов
Так как массив обычно описан «с запасом», сначала вводят конкретный размер массива, а потом поэлементно сам массив.
Const nmax=100; { описываем массив с «запасом»}
Type vector=array [1..nmax] of Integer;
Var a: vector;
i, n, max: Integer;
Begin
Write ('введите размер массива');
Readln(n); {вводим конкретный размер массива}
Write ('введите элементы массива столбиком');
For i:=1 to n do Readln(a[i]);
{можно работать с массивом}
End.
Популярные алгоритмы работы с массивами
Сумма элементов массива
Очень простой алгоритм. Сумма накапливается в переменной «s», которую нужно предварительно обнулить.
Const nmax=100; { описываем массив с «запасом»}
Type vector=array[1..nmax] of Integer;
Var a: vector;
i, n : Integer;
s: Longint; {возможно и Real}
Begin
Write ('введите размер массива');
Readln(n);
Write ('введите элементы массива столбиком');
For i:=1 to n do Readln(a[i]);
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln(s);
Readln
End.
