Одномерные массивы

[Repz1992]

Задания
1.Вычислить корень из суммы положительных элементов массива.
2.из массива A[10] убрать все элементы из интервала (1,10).Первоначальный и конечный массив распечатать.
Сделайте пожалуйста мне эти задания а то я проболел а сдать надо завтра,а я нифига не понимаю как делать!

[ОДИНОЧЕСТВО В СЕТИ]

1

s:=0;
for i:=1 to n do 
if a[i]>0 then s:=s+a[i];
writeln(sqrt(s):6:3);

2

for i:=1 to 10 do
write( a[i]:6:3);
writeln('------------------------');
For i:=1 to 10 do
if (a[i]>1) and (a[i]<10) then write(a[i]:6:3);

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

интересно ,а когда про массивы рассказывают, кто нибудь слушает или все дружно болеют?!{*риторический вопрос*}