только те элементы, значения которых кратно № вашего компьютера. (мой номер компьютера 12865241)
Алгоритм:
- заполнить массив элементами;
- организовать цикл по суммированию элементов массива;
- проверить в цикле условие кратности № вашего компьютера. Если условие выполняется, то добавить значение элемента к сумме.

Код ниже

Объяснение:

program sumDivisableNumbers;

const n = 2500;

var d, S, i: integer;

   arr: array [1..n] of integer;

begin

   randomize;

   writeln('Введите номер Вашего компьютера');

   readln(d);

   S := 0;

   for i := 1 to n do begin

       arr[i] := Random(20000000);

       if (arr[i] mod d = 0) then S := S + arr[i]

   end;

   writeln('Сумма равна ', S);

end.