Регистрация
sharoraupova12
14.09.2020 14:25
Информатика
Есть ответ 👍

Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех нечетных чисел этой последовательности. Ноль числом последовательности не считается.

Формат входных данных
Вводится не более, чем 215 целых чисел, каждое из которых не превосходит по модулю (215−1). После последнего числа вводится 0.
Формат выходных данных
Требуется вывести одно число — искомую сумму.
входные данные выходные данные
1

2

3

4

5

0

9

6

13

42

0

13
ПИТОН! ​

276
458
Посмотреть ответы 1

Ответы на вопрос:

pandapurple
pandapurple
4,8(60 оценок)
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.

Популярно: Информатика