напишите программу которая находит среднее арефметическое всех чисел записанные в файле и выводит результат в другом файле. Язык - phyton ​

ВалерияЛера11111 ВалерияЛера11111    3   14.04.2021 19:27    0

Ответы
16653 16653  14.05.2021 19:28

Program n1;

var a,k,sum: integer;

f: text;

begin

assign(f,'input.txt');

reset(f);

sum:=0;

k:=0;

while not eof(f) do

begin

readln(f,a)

sum:=sum+a;

k:=k+1;

end;

close(f);

assign(f,'output.txt');

rewrite(f);

write(f,sum/k);

close(f);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика