Program q;
var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
randomize;
for i:=1 to 7 do begin;
for k:=1 to 7 do begin;
a[i,k]:=random(-10,10);
if a[i,k] mod 2 = 1 then odd+=1;
end;
end;
min7:=a[1,7];
for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
for i:=1 to 7 do sum1+=a[i,1];
for i:=1 to 7 do avg5+=a[5,i];
avg5/=7;
for i:=1 to 7 do a[1,i]:=1;
write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.
.....................не верно у тебя
Если сообщение содержит 3 бита информации, это означает, что после его получения неопределенность в наших знаниях о цвете вынутого из корзины шара уменьшилась в 2³=8 раз.
Всего в корзине было К красных шаров, 2К белых шаров (по условию белых шаров вдвое больше, чем красных) и 30 синих шаров, т.е. 3К+30 шаров.
Тогда шанс вынуть красный шар равен
Тогда общее количество шаров в корзине равно 3*6+30=48 штук.
<em><u>Ответ: 48</u></em>
1)
var max, min, i, n : integer;
a : array [1..255] of integer;
BEGIN
// ввод массива
read(n);
for i := 1 to n do
read(a[i]);
// то, что в блок-схеме
max := a[1]; min := a[1];
for i := 2 to n do begin
if a[i] < min then
min := a[i]
else if a[i] > max then
max := a[i];
end;
write(min, ' ', max);
END.
2) Если k - это любое число >= 1, то значения элементов массива сдвинутся на 1 влево. К примеру, если k = 1, то a[1] = 12, a[2] = 5, a[3] = 8 и так далее
<span>D) файлы.
С) = D1*D1 + E1*E1;
</span><span>D) =B1*0,01
</span><span> В) 2;
С) =А1/В1;
C) = если(А1 = 5, В4*2; В4 + 10);
</span>