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

Question

Информатика

Пантелей

4 марта, 19:04

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

+2

Ответы (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.