динам.массив

[sven4ik]

Задан массив из случайных целых чисел( размерность определяет пользователь). Если кол-во элементов массива,меньших 19, - число чётное, то добавить в начало массива 5 нулевых элементов.

[Stilet]

Задан массив из случайных целых чисел

var a:array of integer; n:integer;

размерность определяет пользователь

readln(n); SetLength(a,n);

Если кол-во элементов массива,меньших 19

k=0;for i:=Low(a) to High(a) do if a[i]<19 then inc(k);
if (k mod 2)=0 then...

добавить в начало массива 5 нулевых элементов.

SetLength(a,n+5);
k:=0;
for i:=n downto Low(a) do begin a[High(a)-k]:=a[i];inc(k);end;
for i:=Low(a) to 5 do a[i]:=0;

Подходят наработки?