Найти разность суммы элементов массива В(20) с чётными номерами...

[никита989]

Возможно это очень легко, но у меня не получается...надо просто код программы
1.Обработка одномерных массивов:
Найти разность суммы элементов массива В(20) с чётными номерами и произведение элементов с нечётными номерами.

[Трофимов Александр]

1. Резервируешь переменные под сумму и произведение, если надо хранить результат, то и для него. (тип зависит от типа элементов массива). При этом в произведение изначально(можно в начале программы) записываешь 1(например P:=1).
2. делаеешь цикл по элементам массива
3. в цикле ставишь условие "если остаток от деления индекса элемента на 2 равен 0(число чётное) то накапливаешь сумму (к примеру S:=S+B[i]), а если нет, то считаешь произведение (P:=P*B[i])
4. после выхода из цикла вычисляешь разницу.
P/s: Код зависит от языка программирования.

[никита989]

Сообщение от Трофимов Александр

1. Резервируешь переменные под сумму и произведение, если надо хранить результат, то и для него. (тип зависит от типа элементов массива). При этом в произведение изначально(можно в начале программы) записываешь 1(например P:=1).
2. делаеешь цикл по элементам массива
3. в цикле ставишь условие "если остаток от деления индекса элемента на 2 равен 0(число чётное) то накапливаешь сумму (к примеру S:=S+B[i]), а если нет, то считаешь произведение (P:=P*B[i])
4. после выхода из цикла вычисляешь разницу.
P/s: Код зависит от языка программирования.

Мне насом деле это ничего не говорит ,потомучто ваще 0 в програмировании,а язык Delphi

[Карась]

Сообщение от никита989

Мне насом деле это ничего не говорит ,потомучто ваще 0 в програмировании,а язык Delphi

Тогда о чём Вам будет говорить готовый код?
Сходите в раздел "Фриланс", здесь помогают, а не дают готовый код.

[AidarBik]

program Project1;

{$APPTYPE CONSOLE}

var
  A: Array [0..19] of Integer;
  x1, x2, i: Integer;

begin
Randomize;
x1:=0; //Сумма
x2:=1; //Произведение
for i:=0 to 19 do
begin
A[i]:=Random(1000); //Случайные значения для всех элементов массива
if A[i] mod 2 = 0 then x1:=x1 + A[i] else x2:=x2*A[i]; //Если остаток при делении на 2 равен 0, то к x1 прибавляем текущий элемент массива, иначе x2 умножаем на этот элемент
end;
Writeln(x1 - x2); //Выводим результат
Readln; //Задержка экрана
end.

[Трофимов Александр]

Думаю только в строке
if A[i] mod 2 = 0 then x1:=x1 + A[i] else x2:=x2*A[i];
надо написать
if i mod 2 = 0 then x1:=x1 + A[i] else x2:=x2*A[i];

[AidarBik]

Да, я не так сделал. Я проверял элемент массива на четность, а не его номер. Задание невнимательно прочитал.