var x: array[1..m1, 1..n1] of integer; i, j, m, n, mx, mn: integer;
begin Write('Введите через пробел число строк и столбцов матрицы: '); Readln(m, n); Randomize; writeln(#13#10, 'Исходная матрица'); for i := 1 to m do begin for j := 1 to n do begin x[i, j] := Random(100) - 50; Write(x[i, j]:5) end; Writeln end; for i := 1 to m do begin mx := x[i, 1]; mn := mx; for j := 2 to n do if mx < x[i, j] then mx := x[i, j] else if mn > x[i, j] then mn := x[i, j]; Writeln('В строке ', i, ' мin=', mn, ', max=', mx) end end.
Тестовое решение:
Введите через пробел число строк и столбцов матрицы: 5 8
Если нужна матрица другого размера, то надо исправить значения n=5; m=6 на нужные.
const n=5; m=6; var a:array[1..n,1..m] of integer; i,j,min,max:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(20); write(a[i,j]:4); if j=1 then begin min:=a[i,1]; max:=a[i,1]; end else begin if a[i,j]<min then min:=a[i,j]; if a[i,j]>max then max:=a[i,j]; end; end; writeln('; min=',min,'; max=',max); end; end.
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 64 * 128 = 8192 пикселей
I = 8 Kb = 8 * 1024 * 8 бит = 65536 бит
Глубина цвета
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
Кол-во цветов в палитре
цветов
ответ: 256