Const
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
На 1 символ надо log(2)128=7 бит;
<span>на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт</span>
не понимаю чего тут трудного...вам даже синтаксис присвоения правильно дали
N=2^i, т.е. один символ = 5 бит. (так как 2 в пятой степени равно 5)
40*5=200 бит = 25 байт
Ответ: 25 байт
var a:array[1..20] of integer;
i,j,k,l,s:integer;
begin
for i:=1 to 20 do begin
randomize;
a[i]:=random(101)-50;
write(a[i],' ');
end;
k:=0;
l:=0;
for i:=1 to 20 do begin
if l<k then l:=k;
k:=0;
for j:=1 to 20 do
if a[i]=a[j] then k:=k+1;
end;
Writeln;
writeln(l);
for i:=1 to 20 do
if i mod 2 = 0 then s:=s+a[i];
writeln(s);
end.
