Задания
Версия для печати и копирования в MS Word
Тип Д25 C2 № 3638
i

Опи­ши­те на рус­ском языке или одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм под­сче­та сред­не­го зна­че­ния от­ри­ца­тель­ных эле­мен­тов в це­ло­чис­лен­ном мас­си­ве из 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

INPUT A(I)

FOR I = 1 TO N

IF A(I)<0 THEN

SumNeg = SumNeg + A(I)

NumNeg = NumNeg + 1

ENDIF

NEXT I

PRINT SumNeg/NumNeg

END

Спрятать критерии
Критерии проверки:

Кри­те­рии оце­ни­ва­ния вы­пол­не­ния за­да­нияБаллы
Пред­ло­жен пра­виль­ный ал­го­ритм, вы­да­ю­щий вер­ное зна­че­ние. До­пус­ка­ет­ся за­пись ал­го­рит­ма на дру­гом языке, ис­поль­зу­ю­щая ана­ло­гич­ные пе­ре­мен­ные. В слу­чае, если язык про­грам­ми­ро­ва­ния ис­поль­зу­ет ти­пи­зи­ро­ван­ные пе­ре­мен­ные, опи­са­ния пе­ре­мен­ных долж­ны быть ана­ло­гич­ны опи­са­ни­ям пе­ре­мен­ных на есте­ствен­ном языке. Ис­поль­зо­ва­ние не­ти­пи­зи­ро­ван­ных или не­объ­яв­лен­ных пе­ре­мен­ных воз­мож­но толь­ко в слу­чае, если это до­пус­ка­ет­ся язы­ком про­грам­ми­ро­ва­ния, при этом ко­ли­че­ство пе­ре­мен­ных и их иден­ти­фи­ка­то­ры долж­ны со­от­вет­ство­вать усло­вию за­да­чи. В ал­го­рит­ме, за­пи­сан­ном на языке про­грам­ми­ро­ва­ния, до­пус­ка­ет­ся на­ли­чие от­дель­ных син­так­си­че­ских оши­бок, не ис­ка­жа­ю­щих за­мыс­ла ав­то­ра про­грам­мы.2
В любом ва­ри­ан­те ре­ше­ния может при­сут­ство­вать не более одной ошиб­ки из числа сле­ду­ю­щих:

1) не ини­ци­а­ли­зи­ру­ет­ся или не­вер­но ини­ци­а­ли­зи­ру­ет­ся пе­ре­мен­ная;

2) при вы­во­де от­ве­та не учи­ты­ва­ет­ся, что тре­бу­е­мо­го числа в мас­си­ве может не быть;

3) от­сут­ству­ет вывод от­ве­та;

4) в срав­не­нии пе­ре­пу­тан знак;

5) не­вер­но осу­ществ­ля­ет­ся про­вер­ка де­ли­мо­сти;

6) на де­ли­мость про­ве­ря­ет­ся не зна­че­ние эле­мен­та, а его ин­декс;

7) в слож­ном усло­вии вме­сто ло­ги­че­ской опе­ра­ции «И» ис­поль­зу­ет­ся ло­ги­че­ская опе­ра­ция «ИЛИ»;

8) ис­поль­зу­ет­ся пе­ре­мен­ная, не объ­яв­лен­ная в раз­де­ле опи­са­ния пе­ре­мен­ных;

9) не ука­за­но или не­вер­но ука­за­но усло­вие за­вер­ше­ния цикла;

10) ин­декс­ная пе­ре­мен­ная в цикле не ме­ня­ет­ся (на­при­мер, в цикле while) или ме­ня­ет­ся не­вер­но;

11) не­вер­но рас­став­ле­ны опе­ра­тор­ные скоб­ки

1
Оши­бок, пе­ре­чис­лен­ных в п. 1–11, две или боль­ше, или ал­го­ритм сфор­му­ли­ро­ван не­вер­но 0
Мак­си­маль­ный балл2