var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.
V = k * i ( где V - объем файла, k - количество пикселей, i - глубина цвета)
2 в степени i = N ( глубина кодирования (количество бит, занимаемых 1 пикселем), N - количество цветов (палитра)) ==>
2 в степени i = 16
i = 4
v = 2048 * 1024 * 4 = 8 388 608 бит = 1 048 576 байт = 1024 КБ = 1 МБ
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
Я думаю, что ответ будет 2
<span>"дисковод, системная плата, блок питания"</span>
................................................................................................