Подсчитать количество нулевых элементов вектора x(10)

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var x: =arrrandom(10,-2,3); x.println;   writeln('нулевых: ',x.where(x-> x=0).count) end. тестовое решение 2 -2 -2 0 0 1 0 2 0 1 нулевых: 4

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

100010,011101=42,35   (вос. сис.)

10010,011101=22,1d   (шест. с.)

 

  111 111 111 000 001=77701(в.с)

  0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)

 

0,000110101=0,065(в.с) (доб. 00)

0,0110101=0,35(ш.с.) 

 

0,11 100 110 101=0,3465(в.с.)

0,111 0011 0101=0,735(ш.с.)