паскаль(файлы)

[афродита]

Заполнить файл десятью целыми случайными числами из промежутка [-5;5]. Вывести данные из файла на экран, определить количество нулевых элемен-тов, определить сумму всех чисел, занесенных в файл.

[baster128]

Паскаль помню плохо лет 10 на нем не писал, но если проверить из этого кода может быть толк:

var i R0: integer;F:file;
DG:string;
begin
Assign(F,'MyFile');
Rewrite(F);
for i:=-5 to 5 do
begin
writeln(F,', 'i);
if i=0 then
inc(R0)
end;
redeln(F,DG):
Writen('Всего чисел -',DG):
Writen('Количество нулей -',R0):
RedKey;
CloseFile(F)
end;

)

[ROMA2PVT]

Наработки в студию.

[RUSt88]

выполню за вознаграждение в кратчайшие сроки