Составьте программу на паскале для упорядочения пяти чисел по убыванию и нахождение их суммы

Родителям у меня по теме 5

Var   a: array [1 .. 5] of real;   i, j: byte;   sum, tmp: real; begin   sum : = 0;   { заполнение массива }   for i : = 1 to 5 do   begin       write('a[', i, '] = ');       readln(a[i]);       sum : = sum + a[i]; // подсчет суммы   end;   writeln(#13 + 'сумма элементов = ', sum);   { сортировка по убыванию }   for i : = 1 to 4 do       for j : = i + 1 to 5 do           if a[i] < a[j] then           begin               tmp : = a[i];               a[i] : = a[j];               a[j] : = tmp;           end;   { вывод }   writeln('отсортированный массив: ');   for i : = 1 to 5 do       write(' ', a[i]); end.

Один символ: 8 = 2^3 = 3 бит
64 символа: 3 * 64 = 192 бит

Крч посчитай каждый символ (включая пробелы точки и т.д) и умножь на 16

Графические редакторы