{1}
const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла<br>var
input: text;
n, n1, i, sum: longint;
begin
assign(input, WhereInput);
reset(input);
readln (input, n);
n1:=0; sum:=0;
for i:=1 to n do
begin
read (input, n1);
inc (sum, n1);
end;
close (input);
write ('Среднее арифметическое: ', sum/n);
end.
{2}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then readln(input);
end;
close (input);
write ('Символов в файле: ', n);
end.
{3}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n, i: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
i:=0; n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then
begin
readln(input);
inc (i);
writeln ('Символов в ', i, ' строке: ', n);
n:=0;
end;
end;
close (input);
end.