Объектагврзыагвопапишпчкрлвм
Во вложении - файл с рабочей книгой Excel 2003. Поскольку на мои вопросы ответов не последовало, написал так, как понял задание.
Форма появляется, если переключиться между листами рабочей книги кликом мышью по ярлычку листа.
Сзади нужно поднести большой магнит или приклеять
Const
<span>n=10; </span>
<span>var a:array[1..n] of integer; </span>
<span>s,p,k,i:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>p:=1; </span>
<span>randomize; </span>
<span>for i:=1 to n do begin </span>
<span>a[i]:=Random(100); </span>
<span>if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1; </span>
<span>p:=p*a[i]; </span>
<span>s:=s+a[i]; </span>
<span>write(a[i], ' ') </span>
<span>end; </span>
<span>writeln('Сумма = ',s); </span>
<span>writeln('Произведение = ',p); </span>
<span>writeln('Количество положительных и кратных 3-м = ',k); </span>
<span>end.</span>