infa_1 / 7.Динамические массивы

7. Динамические массивы

Производится вычисление суммы элементов одномерного массива с числом элементов n (n вводится пользователем) если сумма >100, то элементы массива с нечетными номерами переписываются в другой массив.

program dyn_vector;

type

vector = array[1..1] of integer;

var

a1,a2:^vector;

p: pointer;

n,t,s: integer;

begin

write(‘Введите число элементов вектора’)

readln (n);

mark (p);

get mem (a1, n*size of (integer));

for i:=1 to n do

readln (a1^[i]);

s:=0;

for i:=1 to n do

s:= st a1^[i];

if s>100 then

begin

set mem (a2, (n+1)div 2)*size of (integer));

for i:=1 to (n+1)div 2 do

a2^[i]:= a1^[i*2-1];

for i:=1 to (n+1) div 2 do

n rite (ar^[i]:6);\end;

release(p);

readln;

end.