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

[Casillas1]

Дан текстовый файл, содержащий последовательность вещественных чисел. Необходимо записать в другой текстовый файл все числа из него, бóльшие их среднего арифметического.
Входные данные:
Последовательность вещественных чисел в текстовом файле с именем
“input.txt”.
Выходные денные:
Последовательность вещественных чисел в текстовом файле с именем
“output.txt”.
Оба файла расположены в каталоге программы.

[revizor]

На каком языке программирования написать?

[Casillas1]

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

На каком языке программирования написать?

Turbo Pascal
Зарание спасибо))

[revizor]

Вот)

program Zadacha;
var
	fIn, fOut: text;
	number: real;
	total: integer;
	sum: real;
begin
	Assign(fIn, 'input.txt');
	Assign(fOut, 'output.txt');
	sum:=0.0;
	total:=0;
	
	Reset(fIn);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		sum:=sum+number;
		total:=total+1;
	end;
	Close(fIn);
	
	Reset(fIn);

	RewRite(fOut);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		if number>(sum/total) then
			Write(fOut, number);
	end;
	
	Close(fIn);
	Close(fOut);
end.

[Casillas1]

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

Вот)

program Zadacha;
var
	fIn, fOut: text;
	number: real;
	total: integer;
	sum: real;
begin
	Assign(fIn, 'input.txt');
	Assign(fOut, 'output.txt');
	sum:=0.0;
	total:=0;
	
	Reset(fIn);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		sum:=sum+number;
		total:=total+1;
	end;
	Close(fIn);
	
	Reset(fIn);

	RewRite(fOut);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		if number>(sum/total) then
			Write(fOut, number);
	end;
	
	Close(fIn);
	Close(fOut);
end.

спасибо большое, но после компиляции "Error 2" показывает

[revizor]

после компиляции "Error 2" показывает

А файл input.txt есть на диске?
У меня все правильно работает

input.txt должен вместе с программой лежать в том же каталоге а в нем записаны цифры. Я вот такие записал:

1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9

[Casillas1]

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

input.txt должен вместе с программой лежать в том же каталоге а в нем записаны цифры. Я вот такие записал:

блин у меня не выходит

[revizor]

Casillas1, а программа хоть компилируется? Просто непонятно что это за ошибка Error 2

[Casillas1]

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

Casillas1, а программа хоть компилируется? Просто непонятно что это за ошибка Error 2

не компилирует!

[revizor]

не компилирует!

Этого не может быть. Turbo Pascal 7.0 компилирует

program NameProgram;
var
	fIn, fOut: text;
	number: real;
	total: integer;
	sum: real;
begin
	Assign(fIn, 'input.txt');
	Assign(fOut, 'output.txt');
	sum:=0.0;
	total:=0;
	
	Reset(fIn);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		sum:=sum+number;
		total:=total+1;
	end;
	Close(fIn);
	
	Reset(fIn);

	RewRite(fOut);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		if number>(sum/total) then
			Write(fOut, number);
	end;
	
	Close(fIn);
	Close(fOut);
end.