Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 09.07.2015
Сообщений: 6
1

Найти сумму элементов массива, которые без остатка делятся на 2

09.07.2015, 18:39. Показов 3557. Ответов 1
Метки нет (Все метки)

Не могу разобраться ! препод задал !
Задание
Дан массив из 10 целых чисел {-2,-3,5,0,7,-4,1,-1,-6,9}
Найти сумму эл-тов массива , которые без остатка делятся на 2 !
Завтра экз надо сдать (
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.07.2015, 18:39
Ответы с готовыми решениями:

Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка
массив целых чисел из 10 элементов заполнить случайным образом. Подсчитать количество и сумму...

Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3
Ребят помогите пожалуйста с двумя задачами "одномерные массивы" 1)Ввести одномерный массив A из...

Определить в массиве сумму элементов, чьи значения без остатка делятся на 3 и не делятся на 2
1)Ввести одномерный массив А из 12 эл. определить в нем сумму эл. чьё значение без остатка делится...

Заменить все элементы массива, которые делятся без остатка на «3», на единицы (9);
Что не так делаю? uses crt; const nmax=9; var a:array of integer; n,i:integer; begin...

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
09.07.2015, 18:52 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const n=10;
      a:array[1..n] of integer=(-2,-3,5,0,7,-4,1,-1,-6,9);
var i,s:integer;
begin
writeln('Массив');
s:=0;
for i:=1 to n do
 begin
  write(a[i]:4);
  if a[i] mod 2=0 then s:=s+a[i];
 end;
writeln;
write('Сумма четных=',s)
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.07.2015, 18:52

Определить в матрице количество тех элементов, которые без остатка делятся на собственный индекс
Ввести двумерный массив Определить в нем количество тех элементов, которые без остатка делятся на...

Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7
написать программу на паскале.Дан массив целых чисел а0,...,аn-1. Найти количество и сумму тех...

Массив: Найти сумму элементов массива целых чисел, которые делятся на 5 и на 8 одновременно.
Найти сумму элементов массива целых чисел, которые делятся на 5 и на 8 одновременно. Размерность...

Найти наименьшее число, число M(N<M<2N) которое делятся на сумму цифр числа N(без остатка).
Помогите решить задачку.:) Дано натуральное число N. Найти наименьшее число, число M(N&lt;M&lt;2N)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.