Разность между суммой элементов одномерного массива на четных/нечетных местах

07.02.2013, 15:18. **Показов** 1658. **Ответов** 2

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

найти разность между суммой элементов одномерного массива, стоящих на четных местах, и суммой элементов стоящих на нечетных местах. спасибо всем кто отзовется!!!!))))

@Fenix_dragon · 07.02.2013, 15:45

устанавливаеш цикл. если элемент массива кратный двум - увеличиваеш сумму "чётных" чисел, нет - "нечётных". после цикла находиш разность

@Romantik_FM · 07.02.2013, 15:51

Delphi

procedure TForm1.sbtn1Click(Sender: TObject);
var
  mas: array [1..20] of Real;
  sumA,sumD: Real;
  i:Integer;
begin
  sumA:=0;
  sumB:=0;
  for i:=1 to 20 do
   begin
     mas[i]:=RandomRange(-100,1000);
   end;
  for i:=1 to 20 do
   begin
     if i mod 2 = 0 then
      sumA:=sumA+mas[i] else
      sumB:=sumB+mas[i];
   end;
  slbl1.Caption:=FloatToStr(sumA);
  slbl2.Caption:=FloatToStr(sumB);
  slbl3.Caption:=FloatToStr(sumA-sumB);
end;

одно и то же просят по 5 тыс раз.....

Веро
		1
	Разность между суммой элементов одномерного массива на четных/нечетных местах 07.02.2013, 15:18. Показов 1658. Ответов 2 Метки нет (Все метки) найти разность между суммой элементов одномерного массива, стоящих на четных местах, и суммой элементов стоящих на нечетных местах. спасибо всем кто отзовется!!!!))))

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	07.02.2013, 15:45	2
	устанавливаеш цикл. если элемент массива кратный двум - увеличиваеш сумму "чётных" чисел, нет - "нечётных". после цикла находиш разность 0

	07.02.2013, 15:51

Разность между суммой элементов одномерного массива на четных/нечетных местах

Решение