Var a,b,c,d: real;
<span>begin
</span><span> write('числа a,b,c,d через пробел: ');
</span><span> readln(a,b,c,d);
</span><span> writeln('минимум: ',min(a,min(b,min(c,d))));
</span><span> writeln('максимум: ',max(a,max(b,max(c,d))));
</span><span>end.
</span><span>
</span>
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
Ответ:
375 байт*8 = 3000 бит - объем сообщения
3000 бит / 500 = 6 бит вес одного символа
N = 2^i=2^6 = 64 символа - мощность алфавита
Объяснение:
Мне не совсем понятна формулировка вопроса: если там имеется в виду, что Красный и Зеленый стоит на максимуме, а Синий на минимуме, то будет Желтый. То есть в реальности это надо было бы записать как RGB (255,255,0)
А если там действительно RGB (1,1,0) как сказано в задачке, то оно даже из черного не вылезет :) Но, скорее всего, просто запись цвета в задачке нестандартной манере сделана.