Склавиатуры вводится число n, за ним массив из n целых чисел и число x. найдите количество элементов массива, значение которых равно x*x.

Var a: array [1..100] of integer; n,i,x,k: integer; begin write('n='); readln(n); for i: =1 to n do begin write('a[',i,']='); readln(a[i]); end; write('x='); readln(x); k: =0; for i: =1 to n do if a[i]=x*x then inc(k); writeln('количество = ',k); readln; end.

1. возьмем некого человека x. остается 16 человек, значит, найдется язык на котором этот человек говорит с группой из 6 человек (16 / 3). пусть этот язык будет x.

2. теперь у нас есть группа из 6 человек. возьмем в ней человека y. он должен общатся с группой на другом языке, иначе, уже есть 3 человека с языком x. останется 5 человека, значит, найдется язык  на котором этот человек говорит с группой из 3 человек (5 / 2). пусть этот язык будет y.

3. далее, людям из этой группы из 3-ех человек надо как-то общатся. если они говорят на третьем языке, то их трое - доказнно. еще они знают языки x и y. если двое из них общаются на иксе, то они состаляют тройку с a, если на y с b. доказанно.

  var    a,b,c,g : integer;     // a,b,c - стороны            begin  readln (a,b,c);       // g - находим гипотенузу (наибольшее из чисел)  if a > b then    begin    if a > c then      g : = a    else      g : = c    end  else    if b > c then    g : = b    else    g : = c;       // если треугольник прямоугольный, то  // сумма квадратов катетов равна квадрату гипотенузы        if (sqr (a) + sqr (b) = sqr(g))  or (sqr (a) + sqr (c) = sqr(g)) then    writeln ('yes')    else    writeln ('no');   end.