Найти среднее арифметическое элементов последовательности, превосходящих некоторое число c. массив задан с клавиатуры. размер произвольный. значение c вводится с клавиатуры.
288
401
Ответы на вопрос:
Мой вариант ответа. program pr; var a: array of integer; i,c,count,total,n: integer; begin write('размер массива: '); readln(n); setlength(a,n); write('c='); readln(c); writeln(); writeln('заполняем '); for i: =1 to n do begin write(i,' элемент: '); readln(a[i]); end; for i: =1 to n do begin if a[i]> c then begin count: =count+1; total: =total+a[i]; end end; writeln(); writeln('среднее арифметическое: ',total/count: 0: 2); end.
если в алфавите 128 символов, то для 1 символа используется код в 7 бит (128=2⁷).
за 2 минуты пользователь напечатает 120·2·7 = 1680 бит информации.
в 1 байте 8 бит, значит ответ 1680÷8=210 байт
Популярно: Информатика
-
123289003.08.2020 01:13
-
has201127.05.2021 16:32
-
friskdrimur19.01.2021 05:29
-
vlada04110419.03.2022 16:45
-
evabo0028.08.2020 09:12
-
BOGDANGER01.12.2020 17:45
-
VlEllen04.07.2020 21:37
-
kate05080404.12.2022 08:25
-
FarHowl30.11.2022 14:37
-
gareevaa0514.09.2022 23:45