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

Question

Информатика

Эдя

10 марта, 06:36

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

+2

Ответы (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.