var
  Form1: TForm1;
  my: array[0..9] of integer = (1,15,10,100,50,33,78,10,90,10);
...
procedure TForm1.Button1Click(Sender: TObject);
var
i, count, summ: integer;
begin
count := 0;
for i:=0 to length(my) do
begin
    if my[i] = 10 then
      begin
        count := count + 1;
      end;
end;
ShowMessage('В массиве ' + IntToStr(count) + ' элементов, равных 10, общая сумма которых ' + IntToStr(count*10));
end;