infa_1 / 7.Динамические массивы
..doc7. Динамические массивы
Производится вычисление суммы элементов одномерного массива с числом элементов 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.