Question

Написать программу на Паскале. Дана последовательность из n целых положительных чисел и числа x и y, которые встречаются в это последовательности. Определить, верно ли , что число x встречается в ней чаще , чем y.

Answer 1

var

 x,y,n,i,a:integer;

 countX, countY:integer;

begin

 write('N: ');

 readln(n);

 write('X, Y: ');

 readln(x,y);

 countX:=0; countY:=0;

 for i:=1 to N do

   begin

     readln(a);

     if a=x then inc(countX);

     if a=y then inc(countY);

   end;

 if countX > countY then  

   writeln('Verno')

     else

       writeln('Error');

end.