Question

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

Answer 1

var
a:array [1..20] of integer;
i,s:integer;
k:real;
begin
Randomize;
k:=0;
for i:=1 to 20 do
begin
  a[i]:=random(150)+150;
  k:=k+a[i];
  write(a[i],' ');
end;
k:=k/20;
s:=0;
for i:=1 to 20 do if a[i]<k then s:=s+a[i];
writeln;
writeln('Среднее арифм. = ',k);
writeln('Сумма элементов массива меньших ',k,' = ',s);
end.