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

[legita]

написать программу нахождения текущего среднего.числа x1,x2...последовательно поступают на вход программы.вычислить и напечатать арифметическое среднее всех введенных чисел.в памяти хранится только текущее число.

решила задачу через массив,но преподаватель просит каким-то другим образом,например через последовательность
вот мое решене:

program OM_1;
var
x:array[1..100] of real;
n,i:integer;
S:real;
begin
writeln('vvedite razmer massiva n');
read(n);
writeln('vvedite massiv x');
for i:=1 to n do read(x[i]);
S:=0;
for i:=1 to n do
begin
S:=S+x[i];
end;
S:=S/n;
writeln('S=',S:6:2);
end.

[Stilet]

Через последовательность???
А ты спроси у его что он имеет ввиду.
Може просто без массива

program OM_1;
var
x: real;
n,i:integer;
S:real;
begin
writeln('vvedite razmer massiva n');
read(n);
writeln('vvedite massiv x');s:=0;
for i:=1 to n do begin read(x);S:=S+x;end;
S:=S/n;
writeln('S=',S:6:2);
end.

[legita]

спасибо большое за подсказку))
а вот задачка на массивы:поменять местами соответствующие элементы двух массивов между собой:X(-3,20,13.5,-8.008),Y(1,-5,0,4.5).на печать вывести полученные массивы.
вот мой вариант,неправильный только:

program M_1;
var
X:array[1..4] of real;
Y:array[1..4] of real;
k,n:integer;
begin
readln('vvedite massiv X');
for k:=o to 3 do read(X[k]);
readln('vvedite massiv Y');
for n:=0 to 3 do read(Y[n]);
X:=X[k];
X[k]:=Y[n];
Y[n]:=Y;
end.