Массив из 10 элементов заполнить случайными числами и найти среднее арифметическое всех нечётных значений

107

256

Посмотреть ответы 2

Ответы на вопрос:

lebeckaaanna

Информатика

4,6(63 оценок)

1. современный вариант // pascalabc.net 3.1, сборка 1214 от 09.04.2016 begin var a: =arrrandom(10,1,50); a.println; writeln('ср.арифм.нечетных=',a.where(x-> x.isodd).average) end. тестовое решение: 43 47 37 17 1 39 47 46 3 34 ср.арифм.нечетных=29.25 2. школьный вариант // pascalabc.net 3.1, сборка 1214 от 09.04.2016 const n=10; var a: array[1..n] of integer; i,s,k: integer; begin randomize; k: =0; s: =0; for i: =1 to n do begin a[i]: =random(50)+1; write(a[i],' '); if odd(a[i]) then begin s: =s+a[i]; inc(k) end end; writeln; writeln('ср.арифм.нечетных=',s/k) end. тестовое решение: 22 46 37 36 23 30 18 19 15 12 ср.арифм.нечетных=23.5