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

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

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

 var n,x,count: integer; 
 a: array of integer; 
 begin 
   assign(input,'\26-j1.txt'); 
   readln(n); 
   setlength(a,n); 
   for var i:=0 to n-1 do  
   begin 
     readln(x); a[ i]:=x; 
   end; 
   Sort(a); 
   for var i:=0 to n-1 do  
   begin 
     for var k:=i+1 to n-1 do 
     begin 
       if a[k]+a[ i] = 100 then 
       begin 
         count+=1; 
         a[ i]:=0; a[k]:=0; 
       end; 
     end; 
   end; 
   print(count); 
 end. 
 

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