Нахождение среднего арифметического элементов массива. Составление и отладка программ. Язык про­грамми­ро­ва­ния Pascal

Из предложенных пунктов составьте верный алгоритм вычисления среднего арифметического элементов массива (списка):

Определите, какое число будет выведено на экран в результате выполнения программы: var number, maxNumber, sum, count, digit, n: integer; maxSum: real; begin maxSum := 0; maxNumber := 0; for number := 80 to 100 do begin sum := 0; count := 0; n := number; while n > 0 do begin digit := n mod 10; sum := sum + digit; n := n div 10; count := count + 1; end; if (count > 0) and (sum / count > maxSum) then begin maxSum := sum / count; maxNumber := number; end; end; writeln(maxNumber); end.

Выберите фрагмент программы, в котором вычисляется среднее арифметическое элементов массива, кратных 3: