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

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах

16.10.2012, 11:01. Показов 2250. Ответов 2
Метки нет (Все метки)

Помогите , пожалуйста, срочно надо написать программу(

программа управляется с помощью меню
В меню обязательно должны войти пункты:
1) ввод одномерного массива;
2) вывод одномерного массива ;
3) обработка одномерного массива (задача 1) с выдачей результатов;
4) обработка одномерного массива (задача 2) с выдачей результатов;
5) выход из программы (с подтверждением).

задача1 - Какая сумма элементов массива больше – с первого до элемента с номером К или от элемента с номером К+1 до последнего.
задача2 - Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2012, 11:01
Ответы с готовыми решениями:

Вычислить среднее арифметическое положительных элементов массива, стоящих на четных местах
Вычислить среднее арифметическое положительных элементов массива стоящих 1) на четных местах 2) на...

Вычислить сумму элементов массива, стоящих на четных местах и произведение элементов, стоящих на нечетных
в Массиве целых чисел что складывается из 20 элементов,узнать сумму элементов,что стоят на первых...

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на нечётных местах ...

Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах
дан вектор, имеющий n (1≤n≥100) целых элементов. напиши программу, которая находит среднее...

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
16.10.2012, 12:16 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
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
var f:boolean;
procedure Vvod(var a:mas;var n:byte);
var i:byte;
begin
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
a[i]:=-25+random(100);
f:=true;
end;
procedure Vyvod(a:mas;n:byte);
var i:byte;
begin
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
readln;
end;
procedure p1(a:mas;n,k:byte;var s1,s2:integer);
var i:byte;
begin
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
clrscr;
for i:=1 to n do
write(a[i]:4);
writeln;
repeat
write('Введите номер элемента для подсчета сумм k=[1..',n,'] k=');
readln(k);
until k in [1..n];
s1:=0;
s2:=0;
for i:=1 to k do
s1:=s1+a[i];
for i:=k+1 to n do
s2:=s2+a[i];
writeln('Сумма элементов от номера 1 до номера ',k,'=',s1);
writeln('Сумма элементов от номера ',k+1,' до номера ',n,'=',s2);
if s1>s2 then writeln('Первая сумма больше второй')
else if s2>s1 then writeln('Вторая сумма больше первой')
else writeln('Суммы равны');
readln;
end;
procedure p2(a:mas;n:byte;var sr:real);
var i,k:byte;
begin
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
clrscr;
for i:=1 to n do
write(a[i]:4);
writeln;
sr:=0;
k:=0;
for i:=1 to n do
if(a[i] mod 2=0)and odd(i) then
 begin
  sr:=sr+a[i];
  k:=k+1;
 end;
if k=0 then writeln('Нет четных элементов на нечетных местах')
else
 begin
  sr:=sr/k;
  writeln('Среднее арифметическое четных элементов на нечетных местах=',sr:0:2);
 end;
readln
end;
 
var a:mas;
    n,k:byte;
    s1,s2:integer;
    sr:real;
    c,w:char;
begin
randomize;
f:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-ввод массива');
writeln('2-вывод массива');
writeln('3-Задача 1-Какая сумма элементов больше');
writeln('4-Задача 2-Среднее арифметическое');
writeln('Другое-выход');
readln(c);
case c of
'1':Vvod(a,n);
'2':Vyvod(a,n);
'3':p1(a,n,k,s1,s2);
'4':p2(a,n,sr);
else begin
     writeln('Вы действительно хотите покинуть программу? Да-Y/y другое нет');
     readln(w);
     if UpCase(w)='Y' then exit
     end;
end;
until not (c in ['1'..'4'])and(w='Y');
end.
1
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 6
16.10.2012, 16:45  [ТС] 3
огромнейшее вам спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2012, 16:45
Помогаю со студенческими работами здесь

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

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах
Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах....

Найти среднее арифметическое всех нечетных элементов массива, стоящих на четных местах
получить среднее арифметическое всех нечетных элементов массива стоящих на четных местах ааа...

Найти среднее арифметическое всех четных элементов массива стоящих на нечетных местах
найти среднее арифметическое всех четных элементов массива стоящих на нечетных местах c++


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

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

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