Program lol;
var
a: array [1..9] of real;
sum: real;
I: integer;
begin
for I := 1 to 9 do
begin
write('a[', I, '] = ');
readln(a[I]);
sum := sum + a[I];
end;
writeln('Среднее арифметическое введённых чисел = ', sum/9);
end.
Kulaktf.cab
kultf.cfg
kululultf.cache
N=2^i
n=2^3
n=8 (подъездов)
n- количество подъездов