Найти сумму четных элементов массива , имеющих нечетные индексы.

@Kalyger · Регистрация: 17.03.2013

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

Задан одномерный массив целых чисел. Найти сумму четных элементов массива , имеющих нечетные индексы.

@Gidropon · 17.03.2013, 21:19

Pascal

program xxx;
 
const n=10;
var
a:array [1..n] of integer;
i,x:integer;
begin
  randomize;
    for i:=1 to n do begin
     a[i]:=random(10)+1;
     write(a[i],' ');
      if (a[i] mod 2 = 0) and (i mod 2 > 0) then
        x:=x+a[i];
    end;
  writeln();
  writeln('Cумма четных элементов массива , имеющих нечетные индексы: ',x);
end.

@Kalyger 0 / 0 / 0 Регистрация: 17.03.2013 Сообщений: 6
		1
	Найти сумму четных элементов массива , имеющих нечетные индексы. 17.03.2013, 20:21. Показов 6866. Ответов 1 Метки нет (Все метки) Задан одномерный массив целых чисел. Найти сумму четных элементов массива , имеющих нечетные индексы. 0

	17.03.2013, 21:19

Опции темы

Найти сумму четных элементов массива , имеющих нечетные индексы.

Решение