Составить алгоритм для проведения спорт концерта! (должно быть не менее 20 ти шагов) 40 ! предмет-информатика

Требуемая процедура sub ex1(byref a() as integer, byref nn as integer, byref nz as integer)       dim i as integer       nn = 0: nz = 0       for i = 1 to 45               if a(i) = 0 then                       nz = nz + 1               else                       if a(i) < 0 and i < = 35 then                               nn = nn + 1                       end if               end if       next i end sub процедура для тестирования с выводом на лист excel sub test()       dim p(1 to 45) as integer       dim n1 as integer, n2 as integer, i as integer       randomize timer       for i = 1 to 45               p(i) = int(25 * rnd - 12)               cells(i, 1) = p(i)       next i       ex1 p, n1, n2       cells(1, 2) = n1       cells(1, 3) = n2 end sub

Разберем по порядку. итак: 1 проход цикла: (а < =8)? да. k: =k+1 --> k=2; a: =a+2 -->   a=2 2 проход цикла: (а < =8)? да. k: =k+1 --> k=3; a: =a+2 -->   a=4 3 проход цикла: (а < =8)? да. k: =k+1 --> k=4; a: =a+2 -->   a=6 4 проход цикла: (а < =8)? да. k: =k+1 --> k=5; a: =a+2 -->   a=8 5 проход цикла: (а < =8)? да! k: =k+1 --> k=6; a: =a+2 -->   a=10 6 проход цикла: (а < =8)? нет.. выход из цикла. в результате, переменная k=6.