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

@Владислав75 · Регистрация: 18.11.2013

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

Pascal

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.

@Puporev · 18.01.2014, 16:40

Попробуйте написать

Pascal

1	m[i]:=-151+random(451);

Опции темы