Дан одномерный массив {Ai}, состоящий из n элементов. Вычислить среднее арифметическое значение этих элементов

Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln(Введите размер массива);
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i], );
Sr:=sr+m[i];
End;
Writeln;
Writeln( Сред. Арф. = ,sr div n);
Readkey;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.