Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности.

program zz1;

const n = 13; / / задаем количество элементов в последовательности

R:array [1 ... n] of integer = (26, - 53, 0, - 67, 12, - 34, 0, 90, 14, - 78, 0, - 45, 66); / / задаем последовательность чисел

var i, k, m:integer; / / задаем переменные целого типа

begin

for i:=1 to n do / / организуем цикл, в котором переберем все числа в последовательности

m:=m + R[i]; / / добавляем элемент последовательности в сумму

writeln (' среднее арифметическое значение чисел в последовательности = ', m/n); / / выводим ответ

end.