Зклавіатури вводиться послідовність чисел, умова завершення число 0. Визначити середне арифметичне відємних чисел послідовності.

как вариант...

program chisla;
uses crt;
var
a,t,x:real;
k:integer;
begin
clrscr;
t:=0;
k:=0;
writeln('vvedite chislo:');
repeat
readln(x);
t:=t+x;
inc(k);
until x=0;
a:=t/k;
writeln('srednee arifm.posled.=',a);
readln;
end.

непонятно только, нужно ли было учитывать ноль при подсчете среднего арифметического (или он просто символ конца последовательности)

ну если не учитывать то можно делить на k-1 при вычислении... но в условии не уточняется, надо ли 0 учитывать или просто символ конца последовательности