Var a:array[1..7]of integer; p3,p5,s,i,k,min,n:integer; srz:real; begin p5:=1; p3:=1; min:=25; for i:=1 to 7 do begin read(a[i]); if a[i]<>0 then begin if a[i] mod 5=0 then p5:=p5*a[i]; if a[i] mod 3=0 then p3:=p3*a[i]; if a[i] mod 2=0 then begin s:=s+a[i]; k:=k+1; end; if a[i]<min then begin min:=a[i]; n:=i; end; end; end; srz:=s/k; writeln; write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n); end.