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.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
ReadlnString('Вводите:').ToReals.OrderBy(x->x).Println
end.
<u><em>Тестовое решение:</em></u>
Вводите: 35.53 -34.14 -18 0 6e-1 3.14 23.2 -2.34e-3
-34.14 -18 -0.00234 0 0.6 3.14 23.2 35.53
64 027;А сколько единиц в двоичной записи не знаю
Прикрепил ниже в файле TXT код программы
За блок-схемой напиши в личку