Question

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

Answer 1

Ответ:var a:array[1..n] of integer;

i:integer;

begin

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if (a[i] mod 3 = 0) and (a[i] mod 5=0) then

Writeln('elem nomer ' , i)

end.