Определитель, сколько элементов массива а равны заданному значению х.

var
x,i,k: integer;
a: array [1..10] of integer;
begin

writeln ('vvedi x');

read (x);

for i:=1 to 10 do
begin
read (a[i]);
 if a[i]=1 then x:=x+1;
 end;
 writeln ('edinice=',x,' elements');
end.