Вопрос по информатике:
Дан массив А(8).Найти сумму нечетных положительных элементов.
Благодарю заранее
- 10.12.2015 21:15
- Информатика
- remove_red_eye 5359
- thumb_up 14
Ответы и объяснения 1
Programm p1;
var i,s:integer;
arr1:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
writeln ('Введите элемент массива ',i);
readln(arr1[i]);
end;
s:=0;
for i:=1 to 8 do
begin
if (arr1[i] mod 2 0) and (arr1[i]>0) then s:=s+arr1[i];
end;
writeln('Сумма нечетных положительных элементов равно: ',s);
end.
- 11.12.2015 07:09
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.