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

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

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);
я проболел а сдать надо завтра,
интересно ,а когда про массивы рассказывают, кто нибудь слушает или все дружно болеют?!{*риторический вопрос*}