Дан целочисленный массив c,длиною 15 элементов значениями диапазона [15; 45].найти сумму отрицательных и кратных по значению элементов.гарантируется,что хотя бы один такой элемент есть.

Обозначу елемент "кратных по значению"  - E. Напишу програмку на Паскале:

    program sumOtrizatelnix;

   var A:array[1..15] of integer;

         i,n,s,E:longint;

begin

  readln(E);

  for i:=1 to 15 do

     read(A[i]); //ввели с клавиатуры масив

  for i:=1 to 15 do

     if (A[i] mod E=0) or (A[i] < 0) then s:=s+A[i]; // добавляем елемент если нам подходит

  writeln(s); // выводим сумму

end.