Program Ex_32;
Type LinMass = Array[1..100] Of Integer;
Var M : LinMass; N, i, o, p : Integer;
begin
Write('Количество элементов массива? '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите M[', I, '] '); ReadLn(M[I]);
End;
o:= 1; p:=0;
For I := 1 To N Do
begin
if M[i]>0 then p:=p+M[i];
if M[i]<0 then o:=o*M[i];
end;
writeln(10*p+o) end.