текстовые файлы

[nucha]

49. Вычислить среднее арифметическое чисел, находящихся в текстовом файле a:\numbers.txt. Использовать IOResult.
50. Создать 10 случайных чисел и сохранить их в текстовом файле a:\numbers.txt.
51. В текстовом файле находятся сведения телефонного справочника –имя, телефон – нескольких абонентов. Организовать поиск телефона по фамилии абонента. Использовать IOResult.

[Zer0]

Делайте, разрешаю

[denisbrain]

Сообщение от nucha

49. Вычислить среднее арифметическое чисел, находящихся в текстовом файле a:\numbers.txt. Использовать IOResult.
50. Создать 10 случайных чисел и сохранить их в текстовом файле a:\numbers.txt.
51. В текстовом файле находятся сведения телефонного справочника –имя, телефон – нескольких абонентов. Организовать поиск телефона по фамилии абонента. Использовать IOResult.

Procedure createfile(Filename:string;Count:integer);
var f:Text;
    x:integer;
begin
assign(f,Filename);
rewrite(f);
for X:=1 to count do begin
 writeln(f,random(50));
end;
close(f);
end;