[friz]

т.е. в массиве есть элементы которые равны D и надо найти их сумму?
если я правильно понял то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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); //выводим в лабел