Дан целочисленный массив 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.