Const
m = 6;
n = 4;
var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n] of longint;
p: longint;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(100) - 50;
write(a[i, j]:4)
end;
writeln
end;
writeln('Результирующий массив');
for j := 1 to n do
begin
p := 1;
for i := 1 to m do p := p * a[i, j];
b[j] := p;
write(b[j], ' ')
end;
end.
Тестовый пример:
Исходный массив
-22 -23 -14 16
-17 42 -13 19
-35 9 -47 -7
23 -9 19 25
3 -7 -31 43
15 42 40 0
Результирующий массив
-13548150 -23004324 201532240 0
<span>"Они, как правило, приводят к увеличению объема файла", так как в отличие от ASCII на один символ отводится 2 байта.
</span><span>"В них на символ может отводиться больше 8 бит", по выше описанной причине.
</span>"Можно использовать больше 256 символов одновременно", а именно <span>65536 символов.</span>
Объяснение:
#наименьшее кратное 3 на отрезке [1; 1000]
#(x+k-1)//k - деление с округлением вверх
mn = (1+(3-1))//3 * 3
#наибольшее кратное 3 на отрезке [1; 1000]
#x//k - деление с округлением вниз
mx = 1000//3 * 3
#среднее арифметическое чисел, кратных 3
#это следует из формулы суммы арифметической прогрессии
#sum = (a1+an)/2*n - сумма
#mean = sum/n = (a1+an)/2 - среднее
mean = (mn+mx)/2
print(mean)
Максимальное количество цветов равно двум в степени, равной количеству бит, отведенных под хранения информации о цвете. В данном случае два во второй степени - <u>четыре цвета</u>.
(5,5), (8,8), (9,8), (11,6), (12,7), (12,7), (11,7),
(11,2), (9,2), (9,3), (10,3), (10,4), (7,4), (7,2),
(5,2), (5,3), (6,3), (6,9), (7,9), (7,8), (2,8),
(2,9), (3,9), (3,6), (4,5)
