begin Randomize; Writeln('Элементы массива'); k := 0; s := 0; for i := 1 to n do begin x[i] := Random(50); Write(x[i]:3); end; Writeln; Writeln('Элементы со значением в интервале [7;10]'); for i := 1 to n do if (x[i] >= 7) and (x[i] <= 10) then begin k := k + 1; s := s + x[i]; Write(x[i]:3) end; if k = 0 then Writeln('не найдены') else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3) end.
1,44 мегабайта влезет 2 книги в емкость в 700 мегабайт влезет 1 019 книг в емкость 4.7 гб влезет 7 009 книг
теперь решение всего в этой книге 720 000 символов. то есть 60 символов умножаем на 40 и умножаем на 300, будет 720 000 потом 1 символ равен 8 битам, то есть 720 000 умножаем на 8 будет 5 760 000 бит. 1 байт = 8 бит(ам) 1 клбайт = 1024 байта 1 мгбайт = 1024 клбайта 1 гигабайт = 1024 мгбайта переводим 5 760 000 / 1024 = 720 00 байт 720 000 байт делим на 1024 получаем 703.125 клбайт 703.125 / 1024 = 0,6866455078125 мегабайт теперь делим 1,44 на 0,6866455078125 получаем 2.097152 (2 книги) потом 700 мб делим на 0,6866455078125 получаем 1 019 книг 1 гигабайт равняется 1024 мегабайта, 4.7 умножаем на 1024 получаем 4 812,8 мегабайт, и делим 4 812, 8 мб на 0,6866455078125 и получаем 7 009 книг.
n = 40;
var
x: array[1..n] of integer;
i, k, s: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0; s := 0;
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Writeln('Элементы со значением в интервале [7;10]');
for i := 1 to n do
if (x[i] >= 7) and (x[i] <= 10) then
begin
k := k + 1; s := s + x[i];
Write(x[i]:3)
end;
if k = 0 then Writeln('не найдены')
else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3)
end.
Тестовое решение:
Элементы массива
24 33 36 29 12 7 5 36 3 48 40 40 46 6 10 23 33 3 38 48 29 37 11 40 44 16 17 18 34 38 33 39 9 0 41 37 42 2 40 31
Элементы со значением в интервале [7;10]
7 10 9
Элементов:3, среднее арифметическое=8.667