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

а) найти среднее аримфметичкое отдельно для положительных, среднее геометрическое - для негативных.

б) найти максимальную по длинне последовательность чисел с одинаковым знаком.

в) найти найменьшее число среди положительных и найбольшее среди отрицательных.

г) элементы которые находятся на позициях между числами из пункта "в" упорядочить за возрастанием.

Question

Информатика

Бена

28 февраля, 21:31

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

а) найти среднее аримфметичкое отдельно для положительных, среднее геометрическое - для негативных.

б) найти максимальную по длинне последовательность чисел с одинаковым знаком.

в) найти найменьшее число среди положительных и найбольшее среди отрицательных.

г) элементы которые находятся на позициях между числами из пункта "в" упорядочить за возрастанием.

+2

Ответы (1)

Знаете ответ?

Мишаня · 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

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.