var x: array[1..n] of integer; i, k, d, s: integer;
begin Randomize; Writeln('Элементы массива'); k := 0; s := 0; for i := 1 to n do begin d := Random(11) - 5; Write(d:3); if (i mod 2) = 0 then begin { четное место } if d = 1 then Inc(k); x[i] := d end else begin if d < 0 then s := s + d; x[i] := sqr(d) end end; Writeln; Writeln('Результирующий массив'); for i := 1 to n do Write(x[i]:3); Writeln; Writeln('Количество единиц на четных местах равно ', k); Writeln('Сумма отрицательных элементов на нечетных местах равна ', s) end.
Тестовое решение: Элементы массива -3 0 -5 1 5 1 -3 -4 5 -3 -2 Результирующий массив 9 0 25 1 25 1 9 -4 25 -3 4 Количество единиц на четных местах равно 2 Сумма отрицательных элементов на нечетных местах равна -13
Задача очень простая. Не знаю какие у вас там формулы и какими буквами что обозначается, так что попробую обьяснить на пальцах
- каждый символ конкретного алфавита занимает определенный обьем/вес/меру в информации которая измеряется в битах - любой из символов данного/конкретного алфавита занимает одинаковое кол-во бит. Т.е. каковы бы не были символы - их количество определяет их вес
Аналог задачи. Продаются яблоки поштучно. Известна цена за одно яблоко, не зависимо от того большое оно или маленькое, зеленое или красное, но стоят все одинаково. Купили всего 130 яблок, и за покупку заплатили 650$ . Сколько стоит одно яблоко? Правильно. одно яблоко стоит 650/130 = 5$
