Очень срочно пожалуйста Напишите программу которая находит среднее арифметическое всех...

Question

Очень срочно пожалуйста

Напишите программу которая находит среднее арифметическое всех чисел записанных в файле в столбик и выводит результат в другой файл

Comments

А числа какого типа? Целые или вещественные?

---

И какой тип файла - текстовый или бинарный?

---

Целый. Текстовый

---

Игры в Паскаль?

---

Паскаль

Answer 1

Var
  n,d,s:longint;
  mid:real;
  f:Text;
begin
  n:=0; s:=0;
  Assign(f,'input.txt'); Reset(f);
  while not Eof(f) do begin
    Readln(f,d);
    if not Eof(f) then begin Inc(n); s:=s+d end
  end;
  Close(f);
  Assign(f,'output.txt'); Rewrite(f);
  mid:=s/n;
  Writeln(f,mid);
  Close(f);
end.

Comments

Спасибо огромное

---

Можешь решить ещё одну задачу

---

Пожалуйста

---

Блин я её только добавил в информатике

---

Это риторический вопрос. Дело в желании.

---

Я решаю задачи или дорогие, или интересные.

---

Блин я просто с телефона не могу много поставить

---

Вот я больше сделал. Прошу пожалуйста