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

Question

Информатика

Аврелиан

26 января, 00:29

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

+5

Ответы (1)

Знаете ответ?

Геша · 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]
writeln;

writeln ('Среднее арифм. = ', k) ;

writeln ('Сумма элементов массива меньших ', k,' = ', s) ;

end.