Дан массив с на n элементов. все положительные элементы массива с увеличить на 0,4,нулевые заменить на 0,5, определить сумму отрицательных элементов,произведение положительных элементов
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 .
