<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(7);
Write('Произведение четных: ',
a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.
<u>Пример</u>
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4
Ну Хьюстон почти все уже сделал. Я чуток подправил
var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
<span>end.</span>
Извини,я бы помогла но я не разбираюсь в блоках,компьютерах,и т.д.