Подсчитать среднее арифметическое чисел, находящихся в файле number.txt. Файл заполняется программно либо с клавиатуры, либо случайными числами Program example_4;

var k, a, s, sa: integer;

sa: real;

f: file of integer;

begin

k:=0;

s:=0;

assign (f, ‘number.txt’);

reset (f);

while not eof (f) do

begin

read (f,a);

s:=s+a;

k:=k+1;

end;

close (f);

sa:=s/k

writeln (sa:9:2);

end.

Подсчитать среднее арифметическое чисел, находящихся в файле number.txt. Файл заполняется программно либо с клавиатуры, либо случайными числами

надо

maslyuk05    2   26.11.2020 10:06    3