На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

program massiv; 
 const N=30; 
 var M:array[1..N] of integer; 
 i,k,s,kmax,reserve:integer; 
 begin 
 k:=0; 
 s:=0; 
 kmax:=0; 
 for i:=1 to N do 
 readln(M); 
 for i:=1 to N do 
 begin 
 if M mod 2=0 then 
 begin 
 k:=k+1; 
 s:=s+M; 
 end 
 else begin 
 k:=0; s:=0; 
 end; 
 if k>kmax then begin kmax:=k; 
 reserve:=s; 
 end; 
 end; 
 if reserve=0 then writeln(последовательностей нет) else writeln(reserve); 
 end.

Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия