Const
N = 15;
Var A:array[1..N] of integer;
i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] mod 2 = 0 then Kc:=Kc+1;
if A[i] mod 2 <> 0 then
Begin
Sn:=Sn+A[i];
Kn:=Kn+1;
End;
if A[i]>0 then A[i]:=0;
End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
Write(' ',A[i])
End.
Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0
Двоичное представление чисел 0 1 2 3 и 4
Е 0 0000
П 1 0001
Н 2 0010
Ч 3 0011
Ь 4 0100
ПЕЧЕНЬЕ в виде двоичного кода
0001 0000 0011 0000 0010 0100 0000
ответ в восьмеричном коде 100601100
1. Балкон
2. Баскетбол
3. Гимнастика
4. Гитара
5. Канал
6. Посетить
7. Почер
8. Расчетливый
9. Справа
10. Справедливый
11. Спортсмен
12. Чехол
13. Шоссе
14. Шофер
-----------------
Satan Only