дан массив C который состоит из 10 целых чисел.составить программу определения средне арифметической элементов данного массива

program ex;type mass=array[1..10] of integer;var sum, i:integer;          sr:real;         C:mass;beginwriteln;write ('Введите 10 элементов массива: ');for i:=1 to 10 doread(С[i]);sum:=0;for i:=1 to 10 do         begin            sum:=sum+c[i];        end;sr:=sum/2;write('Среднее арифметическое=',sr);end.