[qazxcdews]

Задача.
Для массива А от[1 до n] найти сумму всех элементов равному заданному числу D.

[friz]

т.е. в массиве есть элементы которые равны 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); //выводим в лабел