Среднее арифметическое через While

[Илья Савин]

Задание:
С клавиатуры вводится последовательность чисел,признак конца ввода 0,найти среднее арифметическое отрицательных чисел,использовать While.
Вот код:

Uses crt;
const
k=0;
var
x,k:real;
i:integer;
begin
clrscr;
writeln('vvedite posledovatelnost chisel')
read(x[i]);
while x=0 do
begin
if x<0;
then k:=k+1
S:= S+x[i];
Ar:=S/k;
end;
readkey;
end.

В нем есть ошибки,нужно исправить.

[Poma][a]

нужно исправить.

Нам ничего не нужно, а в решении проблем людей, которые не считают нужны поздороваться, и попросить помощи, а не приказать решать, мы не заинтересованы..

[MisterDie]

Uses crt;
const
k=0;
var
x,k:real;
i:integer;
begin
clrscr;
writeln('vvedite posledovatelnost chisel')
read(x[i]);
while x=0 do
begin
if x<0;
then k:=k+1
S:= S+x[i];
Ar:=S/k;
end;
writeln('ispravlenie oshibok...');
writeln;
writeln('Error 412! Возникла ошибка при исправлении ошибок');
writeln('BCE Olllu6Ku uCnPAB/\EHbl!!!');
readkey;
end.

Как-то так.

[Mad_Cat]

var
x,k,ar,s:real;
begin
k:=0;s:=0;
readln(x);
while x<>0 do
begin
if x<0 then begin k:=k+1;
S:= S+x; end;
readln(x);
end;
if k<>0 then begin ar:=s/k;
writeln(ar);
end;
readln;
end.