Дано массив с N положительных и отрицательных чисел. а) найти среднее аримфметичкое...

Question

Дано массив с N положительных и отрицательных чисел.
а) найти среднее аримфметичкое отдельно для положительных, среднее геометрическое- для негативных.
б) найти максимальную по длинне последовательность чисел с одинаковым знаком.
в) найти найменьшее число среди положительных и найбольшее среди отрицательных.
г) элементы которые находятся на позициях между числами из пункта "в" упорядочить за возрастанием.

Answer 1

Тут решение только для а(остальное нет мотивации,лень):
 var a:array[1..10000] of longint;
 i,n,s,so,k,ko:longint;
begin
 readln(n);
 for i:=1 to n do
  read(a[i]);
 s:=0;
 so:=0;
 k:=0;
 ko:=0;
  for i:=1 to n do
   if a[i]<0<br>    then begin so:=so+a[i]; ko:=ko+1; end
    else begin s:=s+a[i]; k:=k+1; end;
 writeln('Average +:',s/k:0:2);
 writeln('Average -:',so/ko:0:2);
 readln
end.