Найти среднеарифметическое всех чисел(файлы input.txt, output.txt)

@tk · Регистрация: 12.09.2010

Author24 — интернет-сервис помощи студентам

В файле input.txt записать числа, сколько их - неизвестно (произвольно ввести в созданный файл числа)
1)Найти среднеарифметическое всех чисел и записать его в файл output.txt
________________________________
Помогите с задачей пожалуйста! Там еще вторая есть, но пока незнаю условия (

@Puporev · 08.10.2010, 19:18

Pascal

var inp,out:text;
     a,s:real;
     k:integer;
............................
s:=0;k:=0;
while not eof(inp) do
  begin
    read(inp,a);
    s:=s+a;
    k:=k+1;
  end;
close(inp);
s:=s/k;
write(out,s:0:2);
close(out);

@tk 0 / 0 / 0 Регистрация: 12.09.2010 Сообщений: 15
		1
	Найти среднеарифметическое всех чисел(файлы input.txt, output.txt) 08.10.2010, 19:07. Показов 5059. Ответов 1 Метки нет (Все метки) В файле input.txt записать числа, сколько их - неизвестно (произвольно ввести в созданный файл числа) 1)Найти среднеарифметическое всех чисел и записать его в файл output.txt ________________________________ Помогите с задачей пожалуйста! Там еще вторая есть, но пока незнаю условия ( 0

	08.10.2010, 19:18

Опции темы

Найти среднеарифметическое всех чисел(файлы input.txt, output.txt)

Решение