Задан массив В (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.
Не нашли ответ?
Похожие вопросы