const n=10;

var m:array [1..n] of integer;

i,a,b,c:integer;

w:real;

begin

c:=1;

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

for i:=1 to n do

begin

m[i]:=random(19)-9;

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

if i mod 2 <> 0 then c:=c*m[i];

write(m[i],'  ')

end;

writeln;

b:=m[1];

for i:=2 to n do if m[i] < b then b:=m[i];

w:=b+a/(c+1);

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

writeln('Наименьший элементов массива B = ',b);

writeln('Произведение элементов массива с нечетными номерами C = ',c);

writeln('W = ',w:0:3);

end.