Написать программу на языке vba
: в файле excel создать новое окно userform. найти порядковый номер отрицательного массива

ответ:1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

var

 Chislo, Count, Summa, n: integer;

begin

 Summa := 0;

 Count := 0;

 readln(Chislo);

 while Chislo > 0 do

 begin

   n := Chislo mod 10;

   if odd(n) then  

   begin

     Summa := Summa + n;

     inc(Count);

   end;

   Chislo := Chislo div 10;

 end;

 writeln('Сумма  нечетных цифр числа: ', Summa);

 writeln('Кол-во нечетных цифр числа: ', Count);

 writeln('Среднее арифметическое  нечетных цифр: ', Summa / Count);

end.

Объяснение:

Подытоживая:

Чтобы установить в исполнителе Чертёжник в КуМире жёлтый цвет линии, надо:

1) Указать использование исполнителя Чертёжник в программе.

Для этого надо в самой первой строке программы (до "алг" , до "нач", вообще до всего) записать следующее:

использовать Чертежник

(именно так, без буквы "ё",  большая буква только "Ч", остальные- малые, иначе не будет работать (да, да, тут регистр важен))

2) В самом теле программы (после строк "алг", "нач", но до строки "кон") указать следующую команду установки цвета:

выбрать чернила(жёлтый)

(тут уже можно вместо "ё" ставить "е", но буквы все должны быть малые)

Привожу скрин примера программы.

Проверял в Кумире версии 2.1.0-rc7