03.12.2008, 17:09
|
|
Участник форума
Регистрация: 30.08.2008
Сообщений: 128
Провел на форуме:
668329
Репутация:
106
|
|
2)Найти сумму всех элементов массива целых чисел,которые меньше средьнего арифмитического элементов массива.Размерность массива 20.Заполнение масива осуществить случайными числами от 150 до 300.
-заполняешь массив случайными числами for i:=1 to 20 do mas[i]:=random(300)+150;
-считаешь сумму элементов массива for i:=1 to 20 do summ:=summ+mas[i];
-находишь среднее арифметическое sred=summ/20;
-перебираешь массив, суммируя элементы, которые меньше среднего арифметического for i:=1 to 0 do if (mas[i]<sred then mas_summ:=mas_summ+mas[i];
|
|
|