Помогите пж пж пж пожалуйста

Question

Помогите пж пж пж пожалуйста

---

Answer 1

 var A : array [0..9] of integer; i,s : integer;
begin
s:=0;
for i:=0 to 9 do
A[i]:=Random(75)-50;
for i :=0 to 9 do
Writeln(A[i]);
for i :=0 to 9 do
s:=s+A[i];
Writeln('Сумма ',s);
Writeln('Среднее арифметическое ',s div 10);
end.