 
алг среднее арифметическое                               | (А67) 
нач цел n | количество чисел 
вещ x | очередное число 
вещ S | сумма чисел 
вывод "Сколько будет чисел?";  ввод n 
S:=0 
нц n раз 
вывод "Введите число:"; ввод x 
S:=S+x 
кц 
вывод "Среднее арифметическое=",S/n 
кон 
 
 
