<em><u>Где варианты ответа? </u></em>
<em><u>Ну, а если логически, то нельзя играть в компьютерные игры. </u></em>
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.
Var a,s,i:integer;
begin
a:=1-4;
s:=0;
for i:=1 to 100 do
begin
a:=a+4;
s:=s+a;
end;
writeln('s = ',s);
end.
Результат:
s = 19900
<span>будет напечатано в результате её выполнения - 24</span>
Исходник и пример работы в приложении к ответу