<em>Только вместо пустых ячеек, надо поставить свои слова<u /><u /></em>
Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
<span>End.</span>
Человек получает инвормацию от головы например сначала он читает книгу потом он берет отуда правильную инвормацыю (новую) потом мы ее переробатываем в голове и пишим в тетрадь эту запись.Человеу получает информацию от нотбука (например ) что такое автомобиль это транспортное средство.Это мы переробатывае и получаем информацию и запаминаем это слово и потом запоминаем и когда у тебя спрашывают что такое машына? ты говориш транспортное средство.И ЭТО НАЗЫВАЕТСЯ МЫ ПОЛУЧАЕМ ИНВАРМАЦЫЮ ОТ ВСЕГО ЛКРУЖАЕШЕГО МИРА !!!
Ответ:
5 бит
Объяснение:
N=2^i, где N-мощность алфавита(кол-во символов), i -вес 1 символа=> 32=2^5