Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program one;Var a:array[1..9999] of rial; i,m,n,k:integer;BeginK:=1;Readln (n);For i:=1 to n do beginReadln(a[i]) ;end;For i:=1 to n do beginIf (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 .