Попробуй по этому плану сделать :
<span>cout</span><span><<</span><span>"Введите числа:<span>\n</span>"</span><span>;</span>
<span>int</span> numbers<span>[</span><span>100</span><span>]</span>, i <span>=</span><span>0</span><span>;</span>
<span>do</span><span>cin</span><span>>></span>numbers<span>[</span>i<span>]</span><span>;</span>
<span>while</span><span>(</span>numbers<span>[</span>i<span>++</span><span>]</span><span>!</span><span>=</span><span>0</span><span>)</span><span>;</span>
<span>long</span> sum <span>=</span><span>0</span><span>;</span>
<span>for</span><span>(</span><span>int</span> j <span>=</span><span>0</span><span>;</span> j <span><</span> i<span>;</span> j<span>++</span><span>)</span> sum <span>+</span><span>=</span> numbers<span>[</span>j<span>]</span><span>;</span>
<span>cout</span><span><<</span><span>"Результат: "</span><span><<</span><span>(</span><span>float</span><span>)</span>sum<span>/</span><span>(</span>i<span>-</span><span>1</span><span>)</span><span>;</span>
<span>const n = 15;</span>
<span>var</span>
<span> a: array[1..n] of integer;</span>
<span> i, count: integer;</span>
<span>begin</span>
<span> for i := 1 to n do begin</span>
<span> a[i] := random(100);</span>
<span> write(a[i], ' ');</span>
<span> if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);</span>
<span> end;</span>
<span> writeln;</span>
<span> writeln('[', count, ']');</span>
<span>end.</span>
// PascalABC.NET (версия 3.2, сборка 1363)
var
n, a, b: integer;
begin
n := ReadInteger();
a := n mod 1000 div 100;
b := n mod 100 div 10;
writeln('Сумма: ', a + b);
writeln('Произведение: ', a * b);
end.
<span>а) E2 -- =($C$3+C$5)/D4</span>
<span>б) E7
-- =($C$3+C$5)/D9</span>
<span>в) C6
-- =($C$3+A$5)/B8</span>
<span>г) F10
- =($C$3+D$5)/E12</span><span> </span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var i:=a.IndexMin;
Writeln('Минимальный элемент ',a[i],' имеет индекс ',i+1)
end.
<u>Пример</u>
n= 15
66 -91 75 27 7 -95 96 48 -35 77 49 71 -13 25 -8
Минимальный элемент -95 имеет индекс 6