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

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

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

var 
   a:array[1..10000] of integer; 
   n,i,j,p:  longint; 
 begin 
   readln(n); 
   for i:=1 to n do 
     readln(a[ i]); 
   p:=0; 
   for i:=1 to n do 
     for j:=1 to n do 
       if (abs(i-j)>=9) and (a[ i]*a[j] > p) and (a[ i]*a[j] mod 2 = 0) then 
         p:=a[ i]*a[j]; 
   writeln(p) 
 end.

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