Задача по Pascal (одномерный массив)

[VolKhara]

Всем добрый вечер!
Пожалуйста помогите с такой задачкой, нужна срочно а сделать не могу...

Одномерный массив Z(n); n=10.заменить минимальный элемент суммой всех элементов имеющих нечётный номер. Из отрицательных элементов сформировать массив С.

[Leshii]

А сам ну совсем, совсем ничего не сделал?
( Дописываю как раз массив из отрицательных чисел )

[VolKhara]

если быть честным то нет... я по массивам вообще не бу.....

[Hacker19_90]

count := 0;
sum := 0;
min := 1;
randomize;
for i := 1 to n do
begin
     z[i] := random(100) - 50;
     if z[i] < 0 then Inc(count);
     if odd(i) then Inc(sum,z[i]);
     if z[min] > z[i] then min := i; 
end;
SetLength(c, count);
j := 0;
for i := 1 to n do
     if z[i] < 0 then
     begin
         c[j] := z[i];
         Inc(j);
     end;
z[min] := sum;

[Leshii]

Держы, вопросы?

Program one;
Uses crt;
const n=10;
var Z, C: array [1..n] of integer;
    i, r, min, index: integer;
	  sum, q, k, d: integer;
begin
clrscr;
writeln('Vvedite masiv Z(n):');
for i:=1 to n do begin
    write('Z[',i,']:=');
	readln(z[i]);
end;
writeln('Vvedenui massiv');
for i:=1 to n do begin
    write(z[i],' ');
end;
writeln;
d:=0;
writeln('Masiv C(n) iz otricatelnux 4isel');
for i:=1 to n do begin
    if z[i]<0 then begin
       inc(d);
       C[d]:=z[i];
    end;
end;
for r:=1 to d do begin
    write(C[r],' ');
end;
writeln;
min:=z[1];index:=1;sum:=0;
for i:=1 to n do begin
    if z[i]<min then begin
	    min:=z[i];
		  index:=i;
	  end;
    if i mod 2 <> 0 then sum:=sum+z[i];
end;
writeln('Min element v massive z[',index,']:=',min);
writeln('Suma elementov s nechet nomeramu =',sum);
    q:=z[index];
    z[index]:=sum;
    sum:=q;
writeln('Massiv s zamenoy');
for i:=1 to n do begin
    write(z[i],' ');
end;
readln;
end.

[VolKhara]

Leshii Спасибо огромное! ))) Вопросов нету.