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

Формулировка задачи:

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


textual

Код к задаче: «Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива - Turbo Pascal»

m[i]:=-151+random(451);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.375 из 5

Источник
Похожие ответы