menu
person

Задача №2894

Опи­ши­те на рус­ском языке или одном из язы­ков про­грам­ми­ро­ва­ния

Поиск задачи:

Опи­ши­те на рус­ском языке или одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм под­сче­та сред­не­го зна­че­ния от­ри­ца­тель­ных эле­мен­тов в це­ло­чис­лен­ном мас­си­ве из 30 эле­мен­тов в пред­по­ло­же­нии, что в нем есть хотя бы один от­ри­ца­тель­ный эле­мент.

 

По­яс­не­ние.

Вве­дем це­ло­чис­лен­ную пе­ре­мен­ную SumNeg и це­ло­чис­лен­ную пе­ре­мен­ную NumNeg, в ко­то­рые будем за­но­сить со­от­вет­ствен­но сумму и число от­ри­ца­тель­ных эле­мен­тов в про­смот­рен­ной части мас­си­ва, и при­сво­им им зна­че­ние 0. В цикле до конца мас­си­ва: про­ве­ря­ем, яв­ля­ет­ся ли оче­ред­ной эле­мент от­ри­ца­тель­ным. Если да, то при­бав­ля­ем его к SumNeg и уве­ли­чи­ва­ем счет­чик NumNeg на еди­ни­цу. По окон­ча­нии цикла вы­во­дим SumNeg/NumNeg.

 

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы (на ос­но­ве ал­го­рит­ма, ис­поль­зу­ю­ще­го од­но­крат­ный про­ход по мас­си­ву):

 

 

 

ПРО­ГРАМ­МА НА ПАС­КА­ЛЕ ПРО­ГРАМ­МА НА БЕЙ­СИ­КЕ
Const N = 30;

var

a : array [1..N] of integer;

i, k, s : integer;

 

begin

 

s:=0;

k:=0;

for i := 1 to N do

readln ( a[i] );

for i := 1 to N do

if a[i] < 0 then

begin

inc (k);

s := s + a[i];

end;

writeln (s/k)

else writeln ( '0' );

 

end.

N = 30

DIM 1, SumNeg, NumNeg, A (N) AS

INTEGER

SumNeg=0

NumNeg=0

FOR I = 1 TO N

IF A(I)<0 THEN

SumNeg = SumNeg + A(I)

NumNeg = NumNeg + 1

ENDIF

NEXT I

PRINT SumNeg/NumNeg

END

Категория: по информатике | Добавил: Просмотров: 1 | Теги: Ал­го­рит­мы обработки массивов | Рейтинг: 0.0/0
Всего комментариев: 0