Вопрос по паскалю

[SeRhy]

Скажите пожалуйста как можно подщитать суму всех чисел записаных в файле через пропуск а потом найти среднее арифметичное етих чисел

[Cantana]

в файле дано сколько чисел будет или произвольно и вообще то вопрос не по паскалю а задача на нем, разве нет ?

[Stilet]

всех чисел записаных в файле

Смотря как они записаны. Контрольная?

[Domovoy]

var i,sum,kol:integer;S,S1,tek:string;s red:real;data:textfile;
begin

AssignFile(data,'C:\....txt');
reset(data);
i:=1;
while not SeekEof(data) do
begin
Readln(data,S1);
S:=S+' '+S1;
end;
Readln(data,S1);
S:=S+' '+S1;
closefile(data);
tek:='';
sum:=0;
kol:=0;
for i:=1 to length(S) do
begin
if S[i]=' ' then
begin
if tek<>'' then
begin
sum:=sum+strtoint(tek);
kol:=kol+1;
tek:='';
end;
end else tek:=tek+S[i];
end;
sred:=sum/kol;

kod na delphi