Const k=10; {k - количество чисел в массиве} var a: array[1..k] of integer; i,summ,n: integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением} sr: real; {sr - среднее арифметическое} begin summ: =0; n: =0; {обнуляем счетчики} for i: =1 to k do begin a[i]: =random(50); {заполняем массив случайными числами} write (a[i],' '); {выводим массив} if a[i] mod 2=0 then begin summ: =summ+a[i]; {находим сумму элементов массива с четными значениями} n: =n+1 end end; sr: =summ/n; {находим среднее арифметическое} writeln; writeln (sr: 0: 2) {выводим среднее арифметическое} end.
ответ:
1111001
объяснение: