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

July 2022 1 23 Report

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

Answers & Comments

StrangeT

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.

Answers & Comments

opredelite s kakoj siloj dejstvuet shnur na sharik esli massa sharika 50 g dlina

sformirovat massiv iz 20 elementovvyvesti na ekranpolozhitelnye elementy umno

dan massiv celyh chiselopredelit ko vo chetnyh elementov i kol vo elementov oka

1najti summu chetnyh elementov massiva celyh chiselrazmernost 20ot 100 do 20

podschitajte kolichestvo elementov odnomernogo massivakotorye sovpadayut so svoim

pomogite reshit sistemu srochno nuzhno sdat k ponedelnikux2y2 3xy4x4y 9

pomogite pozhalujsta reshit sistemu nuzhno ochen srochno x3y365 x2yxy2

pomogite reshit sistemu x3y365 x2yxy220

pomogitepozhalujstasostavit rasskazat o samom neudachnom puteshestviikotoroe s

рекомендуемые вопросы

Helpful Links

Helpful Social