в одномерном массиве подсчитать сумму двоек

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
  Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.

Пример
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6