0 / 0 / 0
Регистрация: 03.10.2016
Сообщений: 5
1

Найти среднее геометрическое четных элементов массива, имеющих нечетный индекс.

18.10.2016, 12:28. Показов 3105. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти среднее геометрическое четных элементов массива С(12), имеющих нечетный индекс.



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
Program Lr4; 
 
var a:array [1..12] of integer; 
 Sg,S:real; 
 x,k:integer; 
 
Begin 
writeln ('Введите любых 12 чисел'); 
for x:=1 to 12 do 
read (a[x]); 
S:=0; 
k:=0; 
for x:=1 to 12 do 
begin 
If (a[x]>0) and (x mod 2<>0 ) then 
 begin 
S:=S*a[x]; 
K:=K+1; 
 end; 
end; 
Sg:=exp(k*ln(s)); 
writeln ('Среднее геометрическое = ',Sg); 
 
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2016, 12:28
Ответы с готовыми решениями:

Найти минимальный элемент среди элементов, имеющих четный / нечетный индекс. Сделать замену.
1. Ввод массива целых чисел. 2. Вывод массива в строку. 3. Найти минимальный элемент среди...

Найти среднее геометрическое четных элементов массива С (12), имеющих четный индекс
Ребят, всем привет! Нужна ваша помощь, не могу понять, где в коде допущена ошибка, посмотрите...

Найти среднее геометрическое элементов, имеющих четный индекс
Найти среднее геометрическое элементов, имеющих четный индекс

Найти сумму элементов массива, имеющих нечетный индекс
Даны целые числа a1, a2, ... , a20. найти сумму a2+a4+a6+...+a20. Оператор цикла с шагом, отличным...

1
Эксперт Pascal/Delphi
6807 / 4565 / 4818
Регистрация: 05.06.2014
Сообщений: 22,438
18.10.2016, 18:11 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
program Lr4;
 
var
  a: array [1..12] of integer; 
  Sg, S: real; 
  x, k: integer;
 
begin
  writeln('Введите любых 12 чисел'); 
  for x := 1 to 12 do 
    read(a[x]); 
  S := 1; 
  k := 0; 
  for x := 1 to 12 do 
  begin
    if (not odd(a[x])) and (odd(x)) then 
    begin
      S := S * a[x]; 
      K := K + 1; 
    end; 
  end; 
  if k <> 0 then 
  begin
    //X^Y = exp(ln(X) * Y)
    Sg := exp((1 / k) * ln(s)); 
    writeln('Таких элементов: ', k);    
    // sg := power(s, 1 / k);
    writeln('Среднее геометрическое = ', Sg); 
  end
  else
    writeln('Нет таких элементов.');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2016, 18:11
Помогаю со студенческими работами здесь

Найти количество и произведение положительных элементов массива, имеющих нечетный индекс
помогите пожалуйста создать числовой массив А. Значение N задается константой. Выдать на экран...

Найти среднее геометрическое четных элементов массива
Всем привет Помогите пожалуйста сделать задания: 1)найти среднее геометрическое четных элементов...

Вычислить сумму и количество элементов массива, имеющих нечетный индекс
Помогите разобраться. Вычислить сумму и количество элементов массива Т(12), имеющих нечетный индекс

Найти среднее геометрическое значение четных элементов массива
1. Дан одномерный массив действительных чисел А(п). Найти сред¬нее геометрическое значение четных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru