Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 3 / 0
Регистрация: 24.06.2013
Сообщений: 370
1

Одномерные массивы: Найти среднее значение элементов с четными номерами, и произведение элементов с номерами, делящимися нацело на 3

24.07.2013, 13:45. Показов 1306. Ответов 1
Метки нет (Все метки)

Задан одномерный массив действительных чисел. Найти среднее значение элементов с четными номерами, и произведение элементов с номерами, делящимися нацело на 3. Исходный массив отсортировать по возрастанию или убыванию (выбор варианта определяется пользователем). Использовать метод прямого выбора.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.07.2013, 13:45
Ответы с готовыми решениями:

Найти среднее значение элементов с четными номерами, и произведение элементов с номерами, делящимися нацело на 3
Задан одномерный массив действительных чисел. Найти среднее значение элементов с четными номерами,...

Дан массив действительных чисел. Найти сумму элементов с четными номерами и произведение элементов с нечетными номерами
Дан массив действительных чисел. Найти сумму элементов с четными номерами и произведение элементов...

Найти сумму элементов с четными номерами и произведение элементов с нечетными номерами
Дан масим А. Найти сумму елементов стоящих на парном месте и произведение стоящих на непарном...

Найти сумму элементов с четными номерами и произведение элементов с нечетными номерами
Дан массив целых чисел. Найти сумму элементов с четными номерами и произведение элементов с...

1
Модератор
63389 / 47078 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
24.07.2013, 14:42 2
Лучший ответ Сообщение было отмечено Jessy James как решение

Решение

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
40
41
42
43
44
45
46
uses crt;
const nmax=100;
var a:array [1..nmax]of real;
    n,i,j,k,w,x:integer;
    sr,pr,buf:real;
Begin
repeat
write('Размер массива от 3 до ',nmax,' n=');
read(n);
until n in [3..nmax];
writeln('Исходный массив:');
sr:=0;
k:=0;
pr:=1;
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:1);
  if i mod 2=0 then
   begin
    k:=k+1;
    sr:=sr+a[i];
   end;
  if i mod 3=0 then pr:=pr*a[i];
 end;
writeln;
sr:=sr/k;
writeln('Среднее элементов с четными номерами=',sr:0:2);
writeln('Произведение элементов с номерами, кратными 3=',pr:0:2);
repeat
writeln('Как сортировать массив 1-по возрастанию, 2-по убыванию');
readln(w);
until w in [1,2];
for i:=1 to n-1 do
 begin
  x:=i;
  for j:=i+1 to n do
  if ((a[j]<a[x])and(w=1))or((a[j]>a[x])and(w=2)) then x:=j;
  buf:=a[i];
  a[i]:=a[x];
  a[x]:=buf;
 end;
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i]:5:1);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.07.2013, 14:42

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

Дан одномерный массив. Если произведение элементов с чётными номерами больше произведения с нечетными номерами, то найти номер максимального элемента
Дан одномерный массив. Если произведение элементов с чётными номерами больше произведения с...

Найти произведение элементов массива с четными номерами и сумму элементов массива с нечетными номерами
Ввести массив A(N). Найти произведение элементов массива с четными номерами и сумму элементов...

Найти произведение элементов массива с четными номерами, значение которых превышают 1
В одномерном массиве ,состоящем из n вещественных элементов ,вычислить: 1)произведение элементов...

Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами
Помогите сделать


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

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

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