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

@loker1332 · Регистрация: 09.07.2015

Не могу разобраться ! препод задал !
Задание
Дан массив из 10 целых чисел {-2,-3,5,0,7,-4,1,-1,-6,9}
Найти сумму эл-тов массива , которые без остатка делятся на 2 !
Завтра экз надо сдать (

@Puporev · 09.07.2015, 18:52

Pascal

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.

@loker1332 0 / 0 / 0 Регистрация: 09.07.2015 Сообщений: 6
		1
	Найти сумму элементов массива, которые без остатка делятся на 2 09.07.2015, 18:39. Показов 4985. Ответов 1 Метки нет (Все метки) Не могу разобраться ! препод задал ! Задание Дан массив из 10 целых чисел {-2,-3,5,0,7,-4,1,-1,-6,9} Найти сумму эл-тов массива , которые без остатка делятся на 2 ! Завтра экз надо сдать ( 0

Опции темы

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

Решение