Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 18.11.2013
Сообщений: 10
1

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

18.01.2014, 16:16. Показов 2021. Ответов 1
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program ms;
var m:array[1..20] of integer;
    sum:integer;
    sr:real;
    i:integer;
begin
randomize;
writeln('Найти сумму всех элементов массива которые меньше среднего арифметического');
writeln('Выполнил: студент гр. .... ...... ');
  sum:=0;
  for i:=1 to 20 do
   begin
    m[i]:=random(451)-151;
   sum:=sum+m[i];
    writeln;
    write(m[i]:5);
   end;
sr:=sum/20;
sum:=0;
   for i:=1 to 20 do
    if (m[i]<sr) then sum:=sum+m[i];
 writeln('Сумма: ',sum:8);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2014, 16:16
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
18.01.2014, 16:40 2
Попробуйте написать
Pascal
1
m[i]:=-151+random(451);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2014, 16:40

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

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

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

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

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

Дан файл целых чисел которые упорядочены по убыванию. Среди этих чисел найти те что больше среднего арифметического суммы всех элементов
Всем привет, можете доделать прогу, а то сортирует на оборот ( как сделать чтоб виводило числа...


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

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

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