Проблема такая: Дан файл, содержащий целые числа. Нужно вывести среднее арифметическое этих чисел. А он (паскаль) выводит какую-то хрень. Почему?
На всякий случай
Код:
program z_1;
uses crt;
var f: file of integer;
s: integer;
k, l: real;
i: byte;
BEGIN
clrscr;
assign(f, 'z.dat');
reset(f);
while not eof(f) do
begin
s:=0;
read(f, s);
i:=i+1;
k:=k+s;
end;
close(f);
l:=k/i;
writeln(l:3:3);
readkey;
END.
Ссылка скрыта от гостей
