Дан одномерный массив

С (-7,3,0,2,-1,4,8,-9,1,6)

Найти: 1) произведение положительных элементов

2) кол-во отрицательных элементов

3) макс. элемент

4) получить новый массив по правилу:

Bi = Ci+10; если Ci>=0

Ci^2; если Ci>=0

5) сортировка по убыванию (напечать элементы массива в строку)

Const c:array [1 ... 10] of integer = (-7,3,0,2,-1,4,8,-9,1,6) ;

var b, d:array [1 ... 10] of integer;

p, k, max, i, j, tmp:integer;

begin

p:=1;

for i:=1 to 10 do

if c[i] > 0 then p:=p*c[i];

k:=0;

for i:=1 to 10 do

if c[i] < 0 then inc (k) ;

d:=c;

max:=d[1];

for i:=2 to 10 do

if c[i] > max then max:=c[i];

writeln ('Max: ', max) ;

writeln ('Kol-vo otriz. elementov: ', k) ;

writeln ('Proizvedenie: ', p) ;

for i:=1 to 10 do

if c[i] > = 0 then b[i]:=c[i]+10 else

if c[i] < 0 then b[i]:=c[i]*c[i];

writeln ('New massiv: ') ;

for i:=1 to 10 do write (b[i],' ') ;

writeln;

for i:=1 to 9 do

for j:=i+1 to 10 do

if d[j] > d[i] then

begin

tmp:=d[j];

d[j]:=d[i];

d[i]:=tmp;

end;

for i:=1 to 10 do write (d[i],' ') ;

writeln;

end.