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

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

Задать свой вопрос
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]lt;0
    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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт