Помогите! Паскаль не слушается!

[Guest]

Проблема такая: Дан файл, содержащий целые числа. Нужно вывести среднее арифметическое этих чисел. А он (паскаль) выводит какую-то хрень. Почему?

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.

На всякий случай

Ссылка скрыта от гостей

 

[Guest]

А препод сказал на какой именно фигне делать или обязательно Free Pascal.

Без разницы.

 

[Dock1100]

Так скачай Turbo Pascal 7.1 и все должно быть норм.

 

[Guest]

Так скачай Turbo Pascal 7.1 и все должно быть норм

Скачал. Поставил. Ничего не изменилось...да и хрен с ним.

 

[Guest]

ну его .. это программирование, думать чегото надо, а нафик надо.

Ага, прям в точку. Уже все нервы себе и вам изматал этим программированием. Вообще все беды в мире из за паскаля.

 

[isqoff]

Не Упоминай Паскаль в Суе!!! :not

 

[Guest]

Не Упоминай Паскаль в Суе!!!

:not да у вас тут секта паскалистов