===== PascalABС.NЕТ =====
begin
ReadArrInteger('Вводите:', ReadInteger('n ='))
end.
Просто подбираеш по логике числа например 2 4 6 8 или 4 8 12 16 20 или 22 44 66 88
1) function MaxArr(a: array of integer): integer;
var i,l,ma: integer;
begin
l:=high(a);
ma:=a[0];
for i:=1 to l do
if a[i]>ma then ma:=a[i];
MaxArr:=ma;
end;
var a: array of array of integer;
i,j,l: integer;
begin
write('Введите длину матрицы: ');
readln(l);
setlength(a,l);
for i:=0 to l-1 do setlength(a[i],l);
for i:=0 to l-1 do
begin
writeln;
for j:=0 to l-1 do
begin
a[i,j]:=random(50)+1;
write(a[i,j],' ');
end;
end;
a[0,0]:=MaxArr(a[0]);
a[1,1]:=MaxArr(a[1]);
a[2,2]:=MaxArr(a[2]);
a[3,3]:=MaxArr(a[3]);
a[4,4]:=MaxArr(a[4]);
writeln;
writeln('Преобразованный массив');
for i:=0 to l-1 do
begin
writeln;
for j:=0 to l-1 do
begin
write(a[i,j],' ');
end;
end;
end.
2) function SumArr(a: array of integer): integer;
var i,l,s: integer;
begin
l:=high(a);
s:=0;
for i:=0 to l do
s:=s+a[i];
SumArr:=s;
end;
var a: array of array of integer;
i,j,n,m,s: integer;
begin
write('Введите длину матрицы N: ');
readln(n);
write('Введите длину матрицы M: ');
readln(m);
setlength(a,n);
for i:=0 to n-1 do setlength(a[i],m);
for i:=0 to n-1 do
begin
writeln;
for j:=0 to m-1 do
begin
a[i,j]:=random(50)+1;
write(a[i,j],' ');
end;
end;
s:=0;
for i:=0 to n-1 do s:=s+SumArr(a[i]);
writeln;
writeln('Сумма всех элементов матрицы равна: ',s);
end.
Ответ:
На скриншотах.
Объяснение:
Как вариант можно написать программу так.
Количество информации можно определить как -log2(p), где p - вероятность данного события. Оно измеряется в битах.
Также можно использовать равносильное выражение log2(1/p)
Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1.
Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит,
если белый, то log2(1/0,2) = log2(5) = 2,3219 бит
если жёлтый, то столько же 2,3219 бит
если красный, то log2(1/0,1) = log2(10) = 3,3219 бит
<span>Чем меньше вероятность события, тем большее количество информации мы получаем, когда это событие наступает.
</span>
