Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 8
1

Определить среднее геометрическое положительных элементов массива с четными номерами

19.05.2011, 20:35. Показов 826. Ответов 2
Метки нет (Все метки)

Нуждаюсь в помощи каждого, кто здесь есть!!! Мне очень нужна ваша помощь =(!!

Задан числовой массив, состоящий из n элементов (n<=100). Определить среднее геометрическое положительных элементов массива с четными номерами.
Программу составить с помощью процедуры или функции.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2011, 20:35
Ответы с готовыми решениями:

Найти среднее геометрическое элементов с четными номерами массива
С=(-1,2,5,4,3,1,0,-2,1,-1,5,4,-4)

Найти среднее геометрическое элементов с чётными номерами массива
Найти среднее геометрическое элементов с чётными номерами массива C =...

Найти среднее геометрическое элементов с четными номерами массива: С=(-1,2,5,4,3,1,0,-2,1,-1,5,4,-4)
Помогите,нужно написать на паскале Найти среднее геометрическое элементов с четными номерами...

Найти среднее геометрическое элементов с нечетными номерами массива
Здравствуйте гуру программирования,мне очень нужна ваша помощь,я проболела месяц и тут мне...

2
Модератор
63389 / 47078 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
19.05.2011, 20:47 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
function Sred(a:mas;n:byte):real;
var i,k:byte;
    s:real;
begin
s:=1;k:=0;
for i:=1 to n do
if (a[i]>0)and(i mod 2=0) then
 begin
  s:=s*a[i];
  k:=k+1;
 end;
if k=0 then Sred:=0
else Sred:=exp(ln(s)/k);
end;
var a:mas;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=10*random-5;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
if Sred(a,n)=0 then write('В массиве нет положительных элементов на четных местах')
else write('Среднее геометрическое элементов на четных местах=',Sred(a,n):0:2);
readln
end.
0
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 8
19.05.2011, 21:01  [ТС] 3
Спасибо, огромное!! сейчас попробую все проверить!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2011, 21:01

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Определить сумму элементов массива с нечетными номерами, произведение элементов массива с четными номерами
Помогите пожалуйста решить две задачи 1. сумму элементов массива с нечетными номерами;...

Вычислить среднее геометрическое и среднее арифметическое значения положительных элементов массива
Помогите пожалуйста. До 24 мая и до 14:00 надо сделать программу, всю голову изломал уже ничего не...

Вычислить среднее арифметическое и среднее геометрическое положительных элементов массива
В данном массиве А{n} вычислить среднее арифметическое и среднее геометрическое положительных...

Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива
Дан массив Х(20) с целыми числами диапазон (-25 +25) Найти среднее арифметическое отрицательных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.