Дан одномерный массив из 10 целых чисел заполненный случайным образом.

[denpanov]

Дан одномерный массив из 10 целых чисел заполненный случайным образом.
а) Найти сумму элементов массива с нечетными индексами и вывести те элементы, значение которых больше 5 и меньше 10.
б) Заменить минимальный по модулю отрицательный элемент нулем.

Сумму элементов вроде понял как находить

for i:=1 to ((2*n)-1) do
if i mod 2<>0 then 
s:=s+a[i];

Со всем остальным не могу разобраться

[Mad_Cat]

вывести те элементы, значение которых больше 5 и меньше 10.

if (a[i]>5) and (a[i]<10)  then writeln(a[i]);

Заменить минимальный по модулю отрицательный элемент нулем.

i:=1;im=0;
while (i<=2*n-1) and (a[i]>=0) do inc(i);
if a[i]<0 then im:=i;
if im<>0 then begin
for i:=im+1 to 2*n-1 do
if (a[i]<0) and (abs(a[i])<abs(a[im])) then im:=i;
writeln(a[im]);
end
else writeln('отрицательных нет');

[denpanov]

Mad_Cat
Извеняюсь за глупость, но как будут полностью программы а) и б) выглядеть? С паскалем совсем не дружу

[Mad_Cat]

С паскалем совсем не дружу

контакты слева! обращайтесь! Я дружу!!! недорого!!!