|
Читайте также: |
Динамическим называется массив, память под который выделяется в процессе работы программы.
Динамические массивы индексируются с нуля, тип индекса - только целое.
Объявление массива
var a: array of integer;
Выделение памяти
SetLength(a,n);
До выделения памяти а равно nil.
Length(a) - возвращает длину массива.
В процессе работы можно изменить память, занимаемую динамическим массивом. Для этого следует повторно вызвать SetLength:
var a: array of integer;
SetLength(a,3);
a[0]:= 1;
a[1]:= 3;
a[2]:= 2;
SetLength(a,4);
Пример 1. Заполнение элементов одномерного массива
объявление одномерного массива из 10 целых элементов
var a: array [1..10] of integer;
begin
цикл со счетчиком для заполнения элементов массива случайными числами в интервале от 0 до 99 и вывод их на экран
for i:integer:= 1 to 10 do
begin
a[i]:=Random(100);
write(a[i],' ');
end;
end.
Пример 2. Поиск минимального элемента массива
begin
цикл для заполнения элементов массива случайными числами
for i:integer:= 1 to 10 do
begin
a[i]:=Random(100);
write(a[i],' ');
end;
writeln;
объявление вспомогательных переменных для поиска минимального элемента
var min, num: integer;
min:=a[1]; num:=1;
поиск минимального элемента путем последовательного перебора
for var i:=2 to 10 do
if a[i]<min then
begin
min:=a[i]; num:=i;
end;
writeln('минимальный элемент массива А[',num,'] = ',min);
end.
Дата добавления: 2015-07-11; просмотров: 41 | Нарушение авторских прав