т.е. в массиве есть элементы которые равны D и надо найти их сумму?
если я правильно понял то так:
Код:
var a:array [1..100] of integer;
i:byte;
n:byte;
d:byte;
sum:integer ;
begin
n:=10;
d:=2;
sum:=0;
randomize;
for i:=1 to n do //заполняем массив случайными числами
a[i]:=random(3);
for i:=1 to n do //проверяем элементы массива и если условие удовлетворяется то суммируем
if a[i]=d then sum:=sum+d;
label1.Caption:=inttostr(sum); //выводим в лабел