Задан массив В (10) элементов. Найти следующие суммы элементов: а) сумму всех элементов массива; б) сумму, отдельно с четными и нечетными индексами. Помогите пожалуйста,оочень сильно нужно на завтра меньше 3

Задан массив В (10) элементов. Найти следующие суммы элементов: а) сумму всех элементов массива; б) сумму, отдельно с четными и нечетными индексами. Помогите пожалуйста,оочень сильно нужно на завтра <3
Гость
Ответ(ы) на вопрос:
Гость
На паскале что то вроде такого: uses GraphABC; var sum, sum_chetn, sum_nechetn : integer; b:array [1..10] of integer; begin for var i := 0 to 10 do begin sum :=sum + b[i]; //сумма всех элементов if (i mod 2 =0) then begin sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов end else begin sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов end; end; println('Сумма всех элементов:'); println(sum); println('Сумма всех четных элементов:'); println(sum_chetn); println('Сумма всех нечетных элементов:'); println(sum_nechetn); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы