Вопрос по информатике:
Найти сумму элементов массива с четными номерами позиции
В Pascal. Очень нужно!!!!
- 20.07.2018 02:14
- Информатика
- remove_red_eye 18139
- thumb_up 47
Ответы и объяснения 1
Var summ:integer;
begin
var a := Arr(1,2,3,4,5,6,7,8,9);
for var i:=0 to 8 do begin
write('[',a[i],'] ');
end;
writeln('');
for var i:=0 to 8 do begin
if (i mod 2)=1 then begin
summ:=summ+a[i];
write('[',a[i],'] ');
end;
end;
writeln('summa = ',summ);
end.
- 21.07.2018 18:38
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.