Динамические струк. данных, модуль, спасите :-( Опции

[Анна]

Люди, помогите пожалйуйста мне.
Прочитала это: http://forum.pascalnet.ru/index.php?showt...0&st=0&p=26901& и это: http://forum.pascalnet.ru/index.php?showtopic=2706
Очень плохо все поняла

Есть задача:

Все элементы в массиве С [1..30] меньше среднеарифметического положительных чисел заменить на максимальное значение массива.
Организовать это всё с помощью функции или процедуры, находящейся в модуле. Использовать линамические переменные


Что-то написала, но имхо чушь

 unit MyMod;
interface
procedure qwe (c: array [1..30] of integer);
var
i,temp: integer;

for i:=1 to 30 do
if c[i] > 0 then temp:=temp+c[i]; {среднеарифметич. .. как дальше?}

=-=-=-=-=-=-=-=-=-=-=-=-=-=

if c[i] > temp then c[i] := max

[volvo]

Странно... FPC сожрал такое определение... Попробуй так:

type
  arrType = array[1 .. 65520 div sizeof(integer)] of integer;
  ParrType = record
    arr: ^arrType;
    size: integer;
  end;

что означает "1 .. 65520 div sizeof(integer)"

Означает, что используя этот тип, можно будет индексировать максимально возможное количество элементов: всего для массива доступно 65520 байт, если учесть что размер каждого элемента массива не равен 1 (у Integer, например, размер = 2 байта), то делим максимально доступный размер на размер элемента и не нужно отключать проверку индексов, она может пригодиться...