Дан массив С на n элементов. Все положительные элементы массива С увеличить на 0,4, нулевые заменить на 0,5, определить сумму отрицательных элементов, произведение положительных элементов

Question

Информатика

Фортуната

16 марта, 05:56

Дан массив С на n элементов. Все положительные элементы массива С увеличить на 0,4, нулевые заменить на 0,5, определить сумму отрицательных элементов, произведение положительных элементов

+1

Ответы (1)

Знаете ответ?

Мерона · Answer 1

Program one; Var a:array[1 ... 9999] of rial; i, m, n, k:integer; Begin K:=1; Readln (n) ; For i:=1 to n do begin Readln (a[i]) ; end; For i:=1 to n do begin If (a[i]>0) then a[i]:=a[i]*0,4; If (a[i]=0) then a[i]:=0,5; If (a[i]>0) then k:=k*a[i]; If (a[i]) <0) then m:=m+a[i]; End; Writeln (k, m) ; End.