N=int(input('задайте размер массива '));
<span>lst=input().split(' ');
</span><span>mx=0;
</span><span>for i in range (0,n):
</span><span> if (int(lst[i])>mx):
</span><span> mx=int(lst[i]);
</span><span> k=1;
</span><span> else:
</span><span> if (int(lst[i])==mx):
</span><span> k+=1;
</span><span>print(mx,k);
</span>задайте размер массива 10
<span>-15 10 14 7 21 19 13 21 11 17
</span><span>21 2
</span>
8 сек. занимает:видео - 640*480*1=307200аудио - 2*32000*8=512000всего - 819200
10Мб=10485760 б30кб=30720На слайды и звук: 10455040
<span>Итого: 10455040/819200=12,7625~12</span>
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
1)128=2^7 Для хранения цвета надо 7 бит
V=2048*2048*7/8=3670016 байта=3584 кБайта=3,5 Мбайта
2) 3072*8=4096*x
x=6 бит
Число цветов=2^6=64 цвета