Ответы и объяснения

Лучший Ответ!
2012-03-12T10:35:02+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array[1..100] of integer;
x,i,less,more,equal:integer;
Begin
    {ввод массива самостоятельно, как там у вас принято}
    read(x);
    for i:= 1 to 100 do    begin
      if a[i]>x then more := more + 1;
      if a[i]<x then less := less + 1;
      if a[i]=x then equal := equal + 1;
    end;
    writeln(more,equal,less);
End.