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

Дан це­ло­чис­лен­ный мас­сив из 40 эле­мен­тов. Эле­мен­ты мас­си­ва могут при­ни­мать про­из­воль­ные зна­че­ния. Опи­ши­те на рус­ском языке или на одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм, ко­то­рый на­хо­дит и вы­во­дит сумму эле­мен­тов самой длин­ной воз­рас­та­ю­щей по­сле­до­ва­тель­но­сти под­ряд иду­щих эле­мен­тов мас­си­ва.

Ис­ход­ные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже. За­пре­ща­ет­ся ис­поль­зо­вать пе­ре­мен­ные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать часть из них.

Бэй­сикПас­каль

N = 40

DIM A(N) AS INTEGER

DIM I, L, LMAX, S, SMAX AS INTEGER

FOR I = 1 TO N

INPUT A (I)

NEXT I

...

END

const

N = 40;

var

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

i, l, lmax, s, smax:

integer;

begin

for i : = 1 to N do

readln(a[i]);

...

end.

Си++Ал­го­рит­ми­че­ский язык

#include <iostream>

using namespace std;

#define N 40

int main(void)

{int a [N]; int

i, l, lmax, s, smax;

for (i = 0; i < N; i++)

cin >> a[i];

...

}

алг

нач

цел N = 40

цел­таб а[1:N]

цел i, L, Lmax, S, Smax

нц для i от 1 до N

ввод a[i]

кц

...

кон

Есте­ствен­ный язык

Объ­яв­ля­ем мас­сив А из 40 эле­мен­тов.

Объ­яв­ля­ем це­ло­чис­лен­ные пе­ре­мен­ные I, L, Lmax, S, Smax.

В цикле от 1 до 40 вво­дим эле­мен­ты мас­си­ва А с 1-го по 40-й.

...

Python

# до­пус­ка­ет­ся также

# ис­поль­зо­вать че­ты­ре

# це­ло­чис­лен­ные пе­ре­мен­ные l, lmax, s, smax

a = []

n = 40

for i in range(0, n):

a.append(int(input()))

...

 

 

 

В ка­че­стве от­ве­та вам не­об­хо­ди­мо при­ве­сти фраг­мент про­грам­мы (или опи­са­ние ал­го­рит­ма на есте­ствен­ном языке), ко­то­рый дол­жен на­хо­дить­ся на месте мно­го­то­чия. Вы мо­же­те за­пи­сать ре­ше­ние также на дру­гом языке про­грам­ми­ро­ва­ния (ука­жи­те на­зва­ние и ис­поль­зу­е­мую вер­сию языка про­грам-ми­ро­ва­ния, на­при­мер Borland Pascal 7.0) или в виде блок-схемы. В этом слу­чае вы долж­ны ис­поль­зо­вать те же самые ис­ход­ные дан­ные и пе­ре­мен­ные, какие были пред­ло­же­ны в усло­вии (на­при­мер, в об­раз­це, за­пи­сан­ном на есте­ствен­ном языке).

Спрятать решение

Ре­ше­ние.

ПАС­КАЛЬБЕЙ­СИК

lmax : = 0 ;

l := 1;

s := а[1];

for i : = 2 to N do

if a[i] > a[i - 1] then

begin

l := l + 1;

s:=s+a[i];

end

else

begin

if l>lmax, then

begin

lmax:=l;

smax : = s

end;

l := 1;

s := a[i]

end ;

if l > lmax then

smax : = s;

writeln(smax);

LMAX = 0

L = 1

S = A (1)

FOR I = 2 TO N

IF A (I) > A (I - 1) THEN

L = L + 1

S = S + A (I)

ELSE

IF L > LMAX THEN

LMAX = L

SMAX = S

ENDIF

L = 1

S = A (I)

ENDIF

NEXT I

IF L > LMAX THEN

SMAX = S

ENDIF

PRINT SMAX

СИАл­го­рит­ми­че­ский язык
lmax = 0;

l = 1;

s = a [ 0 ] ;

for(i =1; i < N; i++)

if(a[i] > a[i - 1])

{

l++;

s += a[i];

}

else

{

if(l > lmax)

{

lmax = l;

smax = s ;

}

l = 1;

s = a [ i ] ;

}

if(l > lmax)

smax = s;

cout « smax « endl;

Lmax : = 0

L := 1

S := a[i]

нц для i от 2 до N

если a[i] > a[i - 1]

TO

L := L + 1

S := S + a [i ]

иначе

если L > Lmax

TO

Lmax : = L

Smax : = S

все

L := 1

S := a[i}

все

кц

если L > Lmax

то

Smax : = S

все

вывод Smax

Есте­ствен­ный язык
За­пи­сы­ва­ем в пе­ре­мен­ную Lmax на­чаль­ное зна­че­ние, рав­ное нулю, в пе­ре­мен­ную L  — на­чаль­ное зна­че­ние, рав­ное еди­ни­це, в пе­ре­мен­ную S  — на­чаль­ное зна­че­ние, рав­ное пер­во­му эле­мен­ту мас­си­ва.

В цикле пе­ре­би­ра­ем все эле­мен­ты со 2-го до 40-го. Если зна­че­ние те­ку­ще­го эле­мен­та мас­си­ва ока­зы­ва­ет­ся боль­ше зна­че­ния преды­ду­ще­го эле­мен­та: уве­ли­чи­ва­ем зна­че­ние пе­ре­мен­ной L на 1;

уве­ли­чи­ва­ем зна­че­ние пе­ре­мен­ной S на зна­че­ние те­ку­ще­го эле­мен­та. Иначе: если зна­че­ние пе­ре­мен­ной L боль­ше зна­че­ния пе­ре­мен­ной Lmax, то пе­ре­мен­ной Lmax при­сва­и­ва­ем зна­че­ние пе­ре­мен­ной L, а пе­ре­мен­ной Smax при­сва­и­ва­ем зна­че­ние пе­ре­мен­ной S; пе­ре­мен­ной L при­сва­и­ва­ем зна­че­ние 1; пе­ре­мен­ной S при­сва­и­ва­ем зна­че­ние те­ку­ще­го эле­мен­та мас­си­ва.

После окон­ча­ния цикла, если зна­че­ние пе­ре­мен­ной L ока­за­лось боль­ше зна­че­ния пе­ре­мен­ной Lmax, при­сва­и­ва­ем пе­ре­мен­ной Smax зна­че­ние пе­ре­мен­ной S. Вы­во­дим зна­че­ние пе­ре­мен­ной Smax.

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

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

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

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

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

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

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

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

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

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

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

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

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

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