назад

                                

program a42512;
uses crt;
type mas=array[1..50] of real;
Var a:mas; n:byte; f:real;

procedure vvod(var x:mas; var nx:byte);
var i:byte;
begin
writeln('vvedite n');
readln(nx);
for i:=1 to nx do
begin writeln('vvedite 4islo'); readln(x[i]); end;
end;

procedure pods4et(var x:mas; var nx:byte; var e:real);
var d,s,i,u:byte; y:real;
begin d:=0; s:=0; y:=1; u:=0;
for i:=1 to nx do
begin if x[i]<0 then begin d:=d+1; y:=y*x[i]; end;
if x[i]=0 then begin s:=s+1; u:=u+i; end;
end; writeln(d); writeln(s);
if d>s then e:=y else e:=u; writeln(e);
end;


begin
clrscr;
vvod(a,n);
pods4et(a,n,f);

readkey;
end.