Массив

[vitalik007]

Дан масcив A: array [1..32] of integer;
он заполнен какими небудб значениями
задача такая что надо создать массив B по длине с первым где
b[0]:=соотношение a[0] к длине массива в процентах и так все элементы перебрать. Сумма элементов массивов дана
Помогите

[SERG1980]

Массив B должен быть integer или можно real?

[vitalik007]

желательно Integer но можно real

[mutabor]

Сумма элементов массивов дана

а это тут причем? может нужно соотношение к сумме элементов?
тип массива определяет точность, сам решай какой лучше

var
B: array of integer;
begin
SetLength(B,Length(A));
for i:=0 to 31 do B[i]:=Round(A[i+1]/(Length(A)/100));
end;

var
B: array of real;
begin
SetLength(B,Length(A));
for i:=0 to 31 do B[i]:=A[i+1]/(Length(A)/100);
end;

[vitalik007]

вот у тебя ошибка
вместо length(a) надо сумма элементов потому что length(a)=33


а вот как мне вывести это в memo
вот у меян в a[i]=12.5
делаю floattostr(a[i]) у меня в результате 10 почему так
как вывести точное значение

[vit_galina]

Сообщение от vitalik007

Дан масcив A: array [1..32] of integer;
он заполнен какими небудб значениями
задача такая что надо создать массив B по длине с первым где
b[0]:=соотношение a[0] к длине массива в процентах и так все элементы перебрать. Сумма элементов массивов дана
Помогите

Ошибка не впредложенном варианте, а в формулировке задания, скорее всего определяется в массиве В вес элементов массива А, т.е отношение значения к сумме элементов. Только на 100 надо умножать, а не делить.
Элементы В (Real) - не могут быть целыми. Фрагмент:
for i:=1 to N do
B[i]:=A[i]/S*100;
Если массив В начиннается с 0-вого элемента, то

for i:=0 to N-1 do
B[i]:=A[i+1]/S*100;

[WhoThenNow]

Так как тут касались динамических массивов, то спрошу здесь чтоб не начинать новую тему.
В общем есть глобальный динамический массив, в 1ой процедуре ему задается длина и заполняется значениями. во 2ой значения должны выдергиваются из этого массива, но почему то длина и значения этого массива равна 0. Вроде все перепроверил, так это всетаки фича динам массивов или где то есть моя ошибка?

[Maslan]

Если глобальный, то скорее возможна ошибка. Приведи код.

[SERG1980]

Сообщение от WhoThenNow

Так как тут касались динамических массивов, то спрошу здесь чтоб не начинать новую тему.
В общем есть глобальный динамический массив, в 1ой процедуре ему задается длина и заполняется значениями. во 2ой значения должны выдергиваются из этого массива, но почему то длина и значения этого массива равна 0. Вроде все перепроверил, так это всетаки фича динам массивов или где то есть моя ошибка?

если не трудно покажи код

[mutabor]

но почему то длина и значения этого массива равна 0

скорее всего ты его повторно объявил в той процедуре, а при совпадении имен локальное "имеет приоритет", так как локальный массив не заполнялся вот он и пустой