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

подсчитать среднее арифметическое элементов и сравнить между собой.

30.09.2011, 16:11. Показов 1104. Ответов 2
Метки нет (Все метки)

Введите с клавиатуры одномерный массив S(B), элементами которого являются по-
ложительные и отрицательные целые числа. Сформируйте массив X(D), состоящий из
четных элементов массива S(B) и массив Y(N) – из нечетных. В двух новых массивах
подсчитайте среднее арифметическое элементов и сравните между собой.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2011, 16:11
Ответы с готовыми решениями:

Найти среднее значение массивов А[1..5], B[1..5] и сравнить их между собой. Вывести на экран большие из них
В программе использивать подпрограмму-функцию)

Найти среднее арифметическое элементов каждого и сравнить эти значения.
Я сделал её в паскале и у меня ответ выводится не правильно, 2 массив равен 000 и не...

Подсчитать количество элементов меньших, чем среднее арифметическое минимального и максимального элементов
В массиве из 10 целых чисел подсчитать количество элементов меньших, чем среднее арифметическое...

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

2
Злой няш
2134 / 1503 / 565
Регистрация: 05.04.2010
Сообщений: 2,881
30.09.2011, 17:17 2
Лучший ответ Сообщение было отмечено spiridon как решение

Решение

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
var b, d, n, i : integer; avg_x, avg_y : real;
   s, x, y : array[1..100] of integer; {100 максимум}
begin
   repeat write('b = '); readln(b)
   until (b > 1) and (b <= 100);
   for i := 1 to b do begin
      write('s[', i, '] = '); readln(s[i]);
      if s[i] mod 2 = 0 then begin
         inc(d);
         x[d] := s[i];
         avg_x := avg_x + x[d]
      end else begin
         inc(n);
         y[n] := s[i];
         avg_y := avg_y + y[n]
      end
   end;
   avg_x := avg_x / d;
   avg_y := avg_y / n;
   write('X: ');
   for i := 1 to d do write(x[i], ' ');
   writeln;
   write('Y: ');
   for i := 1 to n do write(y[i], ' ');
   writeln;
   writeln('Среднее арифметическое для X = ', avg_x);
   writeln('Среднее арифметическое для Y = ', avg_y);
   if avg_x > avg_y then writeln('Среднее арифметическое для X больше')
   else if avg_x < avg_y then writeln('Среднее арифметическое для Y больше')
   else writeln('Средние арифметические для X и Y равны')
end.
1
1 / 1 / 0
Регистрация: 30.09.2011
Сообщений: 9
30.09.2011, 17:24  [ТС] 3
ты гений!! огромное спасибо)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.09.2011, 17:24
Помогаю со студенческими работами здесь

Подсчитать сумму положительных и среднее арифметическое отрицательных элементов одномерного массива
Дан одномерный массив размером М. Подсчитать сумму положительных и среднее арифметическое...

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

Сравнить среднее арифметическое
Задание: Сравнить среднее арифметическое четных чисел и нечетных чисел. Только по-простому, на...

Сравнить среднее арифметическое четырех чисел с полусуммой наи-большего и наименьшего
Сравнить среднее арифметическое четырех чисел с полусуммой наибольшего и наименьшего.


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

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

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