Подсчитать разницу между суммой всех элементов с четными индексами и суммой всех элементов с нечетными индексами

@keshauyrew · Регистрация: 20.03.2019

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

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

@ValentinNemo · 21.03.2019, 00:37

Pascal

program zadanie10;
var
  a: array[1..10] of integer;
  i, chetn, nechetn, res: integer;
begin
  for i:=1 to 10 do
  begin
  Writeln('Vvod:');
  Readln(a[i]);
  end;
  for i:=1 to 10 do
    if i mod 2 = 0 then
        chetn:=chetn + a[i]
    else
        nechetn:=nechetn + a[i];
 res:= chetn - nechetn;
writeln('Rasnica ',res);
readln;
end.

@keshauyrew 0 / 0 / 0 Регистрация: 20.03.2019 Сообщений: 7
		1
	Подсчитать разницу между суммой всех элементов с четными индексами и суммой всех элементов с нечетными индексами 20.03.2019, 20:47. Показов 2109. Ответов 1 Метки нет (Все метки) Подсчитать разницу между суммой всех элементов с четными индексами и суммой всех элементов с нечетными индексами. Чтоб как можно проще было, а то не поверят,что я делал)0)) 0

Опции темы

Подсчитать разницу между суммой всех элементов с четными индексами и суммой всех элементов с нечетными индексами

Решение