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

@ChelPau · Регистрация: 13.06.2014

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

Добрый вечер. Есть задача, нужна помощь:
Ввести массив Е из 7-ми элементов. Если суммы четных элементов больше единицы, найти сумму четных элементов массива, иначе найти сумму нечетных элементов массива.
Такое вообще возможно? Или что-то тут напутано?

@newyork7776 · 13.06.2014, 21:06

Pascal

var mas:array [1..7] of integer;
i,n,a,b:integer;
begin
  a:=0;b:=0;
   Write('Array = ');
   for i := 1 to 7 do
      begin
        mas[i]:=random(50)-25;
        Write(mas[i],' ');
        if (Odd(mas[i])) then a:=a+mas[i]
        else b:=b+mas[i];
      end;
      Writeln;
   if (a>b) then Write('odd > not odd');
   if (a<b) then Write('odd < not odd');
   if (a=b) then Write('odd = not odd');
  readln;
end.

@ChelPau 0 / 0 / 0 Регистрация: 13.06.2014 Сообщений: 2
		1
	Найти суммы четных и нечетных элементов массива 13.06.2014, 20:26. Показов 3141. Ответов 1 Метки нет (Все метки) Добрый вечер. Есть задача, нужна помощь: Ввести массив Е из 7-ми элементов. Если суммы четных элементов больше единицы, найти сумму четных элементов массива, иначе найти сумму нечетных элементов массива. Такое вообще возможно? Или что-то тут напутано? 0

Опции темы

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

Решение