Ответ:

program z1;

const a: array [1..16] of integer = (0,15,12,-9,-8,58,45,36,-85,58,36,-45,2,3,25,-9);

var i, s, k: integer;

begin

s:=0;

write ('Массив: ');

for i:=1 to 16 do

begin

write (a[i],' ');

if a[i]>0 then s:=s+a[i];

if a[i]<0 then k:=k+1

end;

writeln;

writeln ('Сумма положительных элементов ',s);

write ('Количество отрицательных элементов ',k)

end.

program z2;

var a:array [1..10] of integer;

i,p,k:integer;

begin

k:=0;

p:=1;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(7)-3;

write(a[i]:4);

if a[i] <> 0 then

begin

p:=p*a[i];

k:=k+1

end

end;

writeln;

if k<>0 then write ('Произведение элементов, которые не равняются 0, равно ',p)

else write ('Произведение элементов, которые не равняются 0, равно 0')

end.