<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
var s := 0;
for var i := 0 to a.High do
if a[i].IsOdd then
begin
Print(i + 1);
s += a[i]
end;
Println;
Println('Сумма нечетных значений равна', s)
end.
<h2>Пример</h2>
n= 17
-40 7 39 -29 -3 11 21 -49 12 33 -30 1 -48 36 -12 44 -17
2 3 4 5 6 7 8 10 12 17
Сумма нечетных значений равна 14
Var i:integer;
begin
readln(i);
case i of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье')
else writeln('нет такого дня');
end;
<span>end.</span>
Begin
writeln HEIL
readln ZHOPA
end
Ответ: 10 путей
1-3-2-4
1-3-2
1-3-4
1-2
1-2-4
1-3-4-2
1-4-2
1-2-3-4
1-4
1-4-3-2