помогите решить задачу. паскаль

Question

Сформировать и вывести массив из 80 целых чисел в пределах от –25 до 25. Сформировать из этого массива два других соответственно из положительных и отрицательных элементов исходного массива. Вычислить для первого из них среднее геометрическое, а для второго–среднее гармоническое.

Дарина Гаденова · Accepted Answer

Пиши в личку, мб договоримся 
Тут не помогите, тут решите за меня.... а за работу нужно платить

Виктория Ковалева · Answer

var a,b,d: array[1..80] of integer; 
 i,j,c,s: integer; s1: real; 
 begin 
j:=1; c:=1; s:=0; s1:=0; 
for i:=1 to 80 do begin 
a[ i ]:=-25+random(51); 
if a[ i ]>0 then begin b[j]:=a[ i ]; s:=s+a[ i ]; inc(j); end; 
if a[ i ]<0 then begin d[c]:=a[ i ]; s1:=s1+1/a[ i ]; inc(c); end; 
end; 
Writeln('сред. арифм =',s/(j-1)); 
Writeln('сред. гармоническое = ',(c-1)/s1); 
end.