Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
512 К = 512 х 1024 = 524 288 (байт).
640 х 200 = 128 000 (пикселей).
Для кодирования 16 цветов потребуется 4 бита (2^4=16), т.е. 1/2 байта.
Поэтому весь набор пикселей занимает 128 000 х (1/2) = 64 000 байт.
Это позволяет разместить 524 288 / 64 000 ≈ 8 страниц.
Логическое выражение по этой схеме
Не((Не(А∨В)∧С)∧Д)=1, упростим выражение применяя теоремы Буля
(<span>А∨В)∧С</span>∨НеД=1
Подставив значения, получим при 0100 функцию=1