Var k, a, s: integer;
sa: real;
f: text;
begin
s:=0; k:=0;
readln(a);
assign(f, 'C:\ксюша\numbers.txt');
rewrite(f);
for var i:=1 to a do
begin
read(a);
write(f,a); end;
close(f); reset(f);
while not eof(f) do
begin
readln(f,a);
s:=s+a;
k:=k+1; end;
close(f);
sa:=s/k;
writeln('Среднее Арифметическое: ',sa:9:2);
end.
Измените путь в программе завтра надо сдать
236
488
Ответы на вопрос:
Чтобы найти число разрядов числа находишь логарифм по основанию 10 от данного числа, обрезаешь целую часть и прибавляешь единицу. trunc(log10(a)+1) у трёхзначных чисел это значение будет равно трём.
Популярно: Информатика
-
alenakostenkova19.09.2022 23:29
-
yuriymakarov115.01.2020 23:05
-
MurMraz116.05.2022 10:35
-
учеба635803.12.2022 15:19
-
7Alsu17.02.2022 03:43
-
kpodavilnikova24.05.2023 23:04
-
кулибяка211.12.2021 19:42
-
olyaokeio20.06.2023 17:33
-
pro6328.04.2021 01:46
-
умняша8011.11.2022 01:28