<u><em>Называется папкой .
............................................</em></u>
Ответ:
Дано: К = 4 – число красных клубков,
N = 32 – общее число клубков
Найти: I бит..
Решение: 1 способ.
1) красные клубки шерсти составляют = 4/32 = 1/8 от всех клубков,
2) вынутый клубок шерсти – красный, соответствует выбору одного из 8 вариантов,
3) выбор 1 из 8 вариантов – это информация в 3 бита: 8 = 2^3.
Объяснение:
Const n=10;
var a:array[1..n] of real;
max,min:real; i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max = ',max,' min = ',min);
max:=max*max; min:=min*min;
writeln('Измененный массив:');
for i:=1 to n do
if a[i]>0 then a[i]:=a[i]*min else a[i]:=a[i]*max;
for i:=1 to n do write(a[i]:5);
writeln;
end.
Пример:
Исходный массив:
5 6 7 0 -6 5 -2 10 7 -2
max = 10 min = -6
Измененный массив:
180 216 252 0 -600 180 -200 360 252 -200