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

Question

Информатика

Муйассар

19 декабря, 16:55

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

+1

Ответы (1)

Знаете ответ?

Апомир · 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.