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

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

02.12.2013, 19:23. Показов 6231. Ответов 3
Метки нет (Все метки)

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность массива –20. Заполнение массива осуществить случайными числами от -150 до 300. Помогите пожалуйста!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2013, 19:23
Ответы с готовыми решениями:

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива
Помогите пожалуйста найти в чем ошибка? Пишет что арифметическое переполнение! Задание: Найти сумму...

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

Заменить все элементы массива, которые меньше среднего арифметического значения всех элементов
Помогите, пожалуйста, правильно написать программу. Я написал код, но он не запускается. ...

Найти максимальный МАХ из тех элементов А, которые меньше среднего арифметического С всех элементов А
1.Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100. Найти максимальный МАХ...

3
121 / 87 / 90
Регистрация: 30.12.2012
Сообщений: 511
02.12.2013, 19:37 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a: array[1..20] of integer;
  i, sum, sred: integer;
 
begin
  Randomize;
  write('Массив: ');
  for i := 1 to 20 do 
  begin
    a[i] := Random(-150, 300);
    write(a[i]:5);
    sred := sred + a[i];
  end;
  sred := Trunc(sred / 20);
  writeln;
  writeln('Среднее арифметическое: ', sred);
  for i := 1 to 20 do
    if a[i] < sred then
      Inc(sum, a[i]);
  writeln('Сумма: ', sum);
end.
0
3027 / 1913 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
02.12.2013, 19:42 3
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
const
  n = 20;
 
var
  x: array [1..n] of integer;
  i, s: integer;
  sr: real;
 
begin
  Randomize;
  Writeln('Массив:');
  for i := 1 to n do
  begin
    x[i] := Random(451) - 150;
    s := s + x[i];
    Write(x[i], ' ');
  end;
  sr := s / n;
  Writeln;
  Writeln('Ср. арифм = ', sr:0:2);
  s := 0;
  for i := 1 to n do
    if x[i] < sr then
      s := s + x[i];
  Writeln('Сумма элементов, меньших ср. арифм. = ', s);
  Readln
end.
0
0 / 0 / 0
Регистрация: 04.06.2014
Сообщений: 2
05.06.2014, 22:01 4
у меня не пашет(((( пишет арифметическая переполненность массива((((((((((
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2014, 22:01
Помогаю со студенческими работами здесь

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

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

Одномерный массив. Найти сумму всех элементов, которые меньше среднего арифметического
помогите пожалуйста решить Найти сумму всех элементов массива целых чисел, которые меньше...

Найти номер последнего элемента массива, который меньше среднего арифметического всех элементов
Найти номер последнего элемента, который меньше среднего арифметического всех элементов. знаю, что...


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

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

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