Найти сумму четных элементов массивов целых чисел

@saxa · Регистрация: 13.11.2011

Студворк — интернет-сервис помощи студентам

@sfc · 18.01.2012, 17:29

насколько я знаю, сумму четных элементов массива можно найти таким образом:
запускаешь цикл со счетчиком от 1 до последнего элемента массива, если остаток от деления текущего элемента на 2 равен 0 - прибавляешь его к переменной, в которой хранится сумма.
например:

Pascal

var
  a:array[1..10] of integer;
  i,s:integer;
begin
  randomize;
  for i:=1 to 10 do
    a[i]:=random(50);
  writeln('Исходный массив:');
  for i:=1 to 10 do
    write(a[i]:4);
  writeln;
  s:=0;
  for i:=1 to 10 do
    if a[i] mod 2 = 0 then s:=s+a[i];
  write('Сумма четных элементов - ',s)
end.

@Ev[G]eN · 18.01.2012, 17:53

Pascal

var
 arr: array[1..100] of integer;
 i, n, sum: integer;
begin
 sum:=0;
 readln(n);
  for i:=1 to n do
   begin
    arr[i]:=random(50)+1;
    write(arr[i], ' ');
     if arr[i] mod 2 = 0 then sum:=sum+arr[i];
   end;
 writeln;
 writeln(sum);
end.

@saxa 0 / 0 / 0 Регистрация: 13.11.2011 Сообщений: 11
		1
	Найти сумму четных элементов массивов целых чисел 18.01.2012, 16:23. Показов 1843. Ответов 2 Метки нет (Все метки) Найти сумму четных элементов массивов целых чисел 0

Опции темы

Найти сумму четных элементов массивов целых чисел

Решение