Составить программу, которая вводит с клавиатуры массив из 5 элементов, и находит среднее арифметическое этих чисел.

program zz1;

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

m:array [1 ... 5] of integer;

begin

for i:=1 to 5 do / / записываем в массив пять чисел с клавиатуры

read (m[i]);

for i:=1 to 5 do / / организуем цикл, в котором переберем все элементы массива

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

writeln (' среднее арифметическое элементов массива = ', k / 5); / / выводим ответ

end.