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

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

Задать свой вопрос
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] lt; 0) then s:=s+A[i]; // прибавляем елемент если нам подходит

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

end.

   

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт