Дан массив из 5 элементов. Найти средне арифметическое всех элементов массива.

program zz1;

var mas:array[1 ... 5] of integer;

i, sum:integer;

begin

for i:=1 to 5 do / /вводим 5 случайных чисел в массив от 0 до 20

mas[i]:=random (21);

for i:=1 to 5 do / /выводим исходный массив на экран

write (mas[i],' ');

writeln; / /переходим на новую строку для вывода

for i:=1 to 5 do / /получаем сумму элементов массива

sum:=sum+mas[i];

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

end.