Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое нечётных чисел.

program n1; uses crt; const n=40; var a: array[1..n] of integer; i,s,k: integer; beginclrscr; for i: =1 to n do begin a[i]: =random(21); write(a[i]: 3); if a[i] mod 2=1 then begin k: =k+1; s: =s+a[i]; end; end; writeln('summa =',s,' kolvo =',k,' srednee arifm = ',s/k: 4: 4); readlnend.

Перебираем все варианты комбинаций, 1 - прыжек вперед, 0 - прыжек назад получается что это те варианты, когда колво прыжков в одну сторону кратно 3 # код на ruby 2.2.3p173 count = 0 for i in 0..2**9-1       s = ("000000000"+i.to_s(2))[-       vertix = 0       s.chars.each {|c|             vertix = (vertix + (c == "1" ? 1 : -1)) % 3 ;             # p [c, vertix]       }       if vertix == 0             p s             count += 1       end end p count ответ 170

Input n m = n do while n < > -777   input n   if n > m then m = n loop print m пример ? 42 ? 39 ? -50 ? 127 ? 0 ? 14 ? -777   127 dim a(1 to 100) cls i = 0 do     input n     if n < > -777 then           i = i + 1           a(i) = abs(n)     end if loop until n = -777 n = i for i = 1 to n   print a(i); " "; next i пример ? 45 ? -12 ? 0 ? 23 ? -5 ? 14 ? -777   45    12    0    23    5    14 dim c(1 to 5), d(1 to 5), m(1 to 5) cls print "c(5): " for i = 1 to 5     input c(i) next i print "d(5): " for i = 1 to 5     input d(i) next i print "m(5)="; s = 0 for i = 1 to 5   m(i) = c(i) - d(i)   if m(i) > 0 then s = s + m(i)   print m(i); next i print print "s="; s пример c(5): ? 5 ? 12 ? -6 ? 0 ? 17 d(5): ? -2 ? 7 ? 13 ? -11 ? -5 m(5)= 7  5 -19  11  22 s= 45