//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
if ar[i]>0 then s:=s+ar[i];
end;
writeln;
write('Result:',s);
end.
Пример работы программы:
Array:
3 -7 0 9 -9 6 -1 0 1 0 -7 9 -9 -5 -8
Result:28
Легко решается. Площадь фото 10 см*15 см = 150 кв.см.
Каждый 1 кв.см. = 600 точек, значит всего 600*150 = 90000 точек.
Каждая точка кодируется 4 битами (16 цветов, если что), то есть 0,5 байта.
Объем памяти V = 0,5*90000 = 45000 байт = 45000/1024 ~ 44 Кбайта
Максимальное количество цветов равно двум в степени, равной количеству бит, отведенных под хранения информации о цвете. В данном случае два во второй степени - <u>четыре цвета</u>.
<span>0) 5<u>4</u>3<u>2</u>61
1) <u>5</u>2346<u>1</u>
2) 1234<u>65</u>
3) 123456
3 перестановки
</span>