var
a: array of real;
size, i: integer;
average: real;
begin
randomize;
write('Размер массива: ');
readln(size);
SetLength(a, size);
average := 0;
writeln(' *** Сгенерированный массив *** ');
for i := 0 to size - 1 do
begin
a[i] := random(20);
write(' ', a[i]);
if Odd(i) = false then average := average + a[i];
end;
average := average / trunc((size + 1) / 2);
writeln(#13 + 'Среднее арифметическое = ', average);
writeln(' *** Новый массив ***');
for i := 0 to size - 1 do
begin
if Odd(i) = true then a[i] := average;
if Frac(a[i]) = 0 then write(' ', a[i])
else write(' ', a[i]:0:1);
end;
end.
890: 178 = 5 битов
2^5 = 32 символа в алфавите - мощность алфавита