Дан целочисленный массив C,длиною 15 элементов значениями диапазона [15;45].Найти сумму...

Question

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

Answer 1

Обозначу елемент "кратных по значению"  - 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.