1. Дан одномерный массив числовых значений, насчитывающий n элементов. Вычислить сумму положительных элементов и произведение ненулевых элементов.

Question

Информатика

Адриана

16 октября, 04:10

1. Дан одномерный массив числовых значений, насчитывающий n элементов. Вычислить сумму положительных элементов и произведение ненулевых элементов.

+4

Ответы (1)

Знаете ответ на вопрос?

Еняха · Answer 1

N, a, s, p:integer; begin s : = 0; p: = 0; Readln (n) ; for I : = 1 to n do begin read (a) ; if a > = 0 then inc (s, a) else p : = p * a; end; writeln (s,' ', p) ; End.