Задан массив В (10) элементов.
Найти следующие суммы элементов:
а) сумму всех элементов массива;
б) сумму, отдельно с четными и нечетными индексами.
Помогите пожалуйста,оочень сильно нужно на завтра <3
Найти следующие суммы элементов:
а) сумму всех элементов массива;
б) сумму, отдельно с четными и нечетными индексами.
Помогите пожалуйста,оочень сильно нужно на завтра <3
More Questions From This User See All
Answers & Comments
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.