дан массив 0 из 6 элементов. найти среднее арифметического элементов этого массива. в паскале

const n = 6;

var

a: array[1 ... n] of integer;

i, s: integer;

begin

for i : = 1 to n do begin

a[i] : = random (20);

s : = s + a[i];

write (a[i], ' ');

end;

writeln;

writeln ('Среднее арифметическое эл. массива: ', s / n);

end.

Program Tanina_domashka;

i:byte;

summa:integer;

o:array[1 ... 6] of integer;

Begin

Writeln ('Массив');

For i:=1 to 6 do

Begin

o[i]:=random (1001) - 500;

Writeln ('Элемент массива №', i,' = ', o[i]);

End;

For i:=1 to 6 do

summa:=summa+o[i];

Writeln ('Среднее арифметическое элементов массива = ', summa/6);

End.