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

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

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

 for i:=0 to 59 do begin 
    b[ i ]:=0; 
    m[ i ]:=0; 
 end;

 var m, b: array[0..79] of integer; 
 n, count, i, p, x: integer; 
 begin 
 for i := 0 to 79 do 
 begin 
    m[ i ] := 0; b[ i ] := 0 
 end; 
 count := 0; 
 readln(n); 
 for i := 1 to n do 
 begin 
    readln(x); 
    p := x mod 80; 
    if x <= 50 then 
       m[p] += 1 
    else 
       b[p] += 1 
 end; 
 count += m[0] * b[0] + (b[0] * (b[0] - 1)) div 2; 
 count += m[40] * b[40] + (b[40] * (b[40] - 1)) div 2; 
 for i := 1 to 39 do 
    count += m[ i ] * b[80 - i] + b[ i ] * b[80 - i] + m[80 - i] * b[ i ]; 
 writeln(count); 
 end.

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