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

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

24.08.2013, 20:58. Показов 549. Ответов 1
Метки нет (Все метки)

Задан одномерный массив действительных чисел. Найти среднее значение элементов с четными номерами, и произведение элементов с номерами, делящимися нацело на 3. Исходный массив отсортировать по возрастанию или убыванию (выбор варианта определяется пользователем). Использовать метод прямого выбора.
Я уже создавал эту тему, но предоставили слишком трудный вариант решения, я уверен что можно проще.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program m1;
const n=20;
var a:array [1..n] of real;
i, k:integer;
Sred, Proizv:real;
begin
Sred:=0;
k:=0;
for i:=1 to n do
if (i mod 2=0) then
k:=k+1;
Sred:=Sred+a[i];
Sred:=Sred/k;
begin
Proizv:=1;
for i:=1 to n do
if (i mod 3=0) then
Proizv:=Proizv*a[i];
writeln('Sred=', Sred, 'Proizv=', Proizv);
end;
end.
У меня почему то Sred и Proizv равны нулю...и куда ут сортировку впихнуть?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.08.2013, 20:58
Ответы с готовыми решениями:

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

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

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

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

1
42 / 42 / 51
Регистрация: 04.01.2013
Сообщений: 105
24.08.2013, 22:32 2
А что это за begin посреди кода? Зачем он нужен?
Каким образом заполняется массив?

Добавлено через 20 минут
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
program Project1;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  System.SysUtils;
 
const
  n = 20;
 
Type
  Tmas = array [1 .. n] of real;
 
procedure swap(var a, b: real);
var
  c: real;
begin
  c := a;
  a := b;
  b := c;
end;
 
procedure selectSort(var a: Tmas; n, sort: word);
var
  iMax: word;
  i, k: word;
begin
  for k := n downto 2 do
  begin
    iMax := 1;
    if sort = 1 then
      for i := 2 to k do
        if a[i] > a[iMax] then
          iMax := i;
    if sort = 2 then
      for i := 2 to k do
        if a[i] < a[iMax] then
          iMax := i;
    if iMax <> k then
      swap(a[k], a[iMax])
  end
end;
 
var
  a: Tmas;
  i, k, sort: integer;
  Sred, sum, Proizv: real;
 
begin
  randomize;
 
  Sred := 0;
  k := 0;
  sum := 0;
  Proizv := 1;
 
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    a[i] := random(5);
    writeln('a[', i, '] = ', a[i]:0:0);
    if i mod 2 = 0 then
    begin
      inc(k);
      sum := sum + a[i];
    end;
  end;
  Sred := sum / k;
 
  for i := 1 to n do
    if (i mod 3 = 0) then
      Proizv := Proizv * a[i];
  writeln('Среднее значение элементов с четными номерами = ', Sred:0:2);
  writeln('произведение элементов с номерами, делящимися нацело на 3 = ',
    Proizv:0:0);
  writeln;
 
  write('Введите 1, чтобы отсортировать массив по возрастнию или 2, чтобы отсортировать гео по убыванию: ');
  readln(sort);
  writeln('Отсортированный массив:');
 
  selectSort(a, n, sort);
  for i := 1 to n do
    writeln('a[', i, '] = ', a[i]:0:0);
  readln;
 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.08.2013, 22:32

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

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

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

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

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


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

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

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