Ответы на вопрос:
Program primer; const n=10; var f: array[1..n] of integer; k,s,m: integer; sr: real; begin writeln ('vvedite massiv'); for m: =1 to n do readln( f[m]); k: =0; s: =0; for m: =1 to n do if f[m]> 0 then begin s: =s+f[m]; inc(k); end; sr: =s/k; writeln('sr=',sr); readln; end.
24*8/64=3 бита (не байта, 1 байт - 8 бит) максимальное кол-во символов, которое можно закодировать - 2^3=8 символов
Популярно: Информатика
-
SuperZadrot20011.06.2023 14:25
-
спаркер07.09.2022 01:18
-
Катрин190725.09.2021 06:01
-
leraanufrieva29.10.2021 14:58
-
Pandi202.04.2020 12:35
-
tasinas07.05.2022 04:32
-
бростас07.06.2021 10:34
-
nikitalandsberg29.08.2022 11:55
-
Amin140224.09.2021 11:10
-
katkotasher30.05.2021 23:38