Установите выполняемую операцию данного инструмента: *
Подпись отсутствует
Масштабирование и растягивание выбранных объектов
Вдавливать и вытягивать грани объектов
Позволяет перемещать, растягивать, копировать и упорядочивать объекты
Стереть, сгладить или смягчить выбранные модели
Сместить выбранные ребра в плоскости
Выбирает фигуры: круг, многоугольник, прямоугольник

1. Кол-во информации для хранения 1 точки = log(2)128=7 бит,
кол-во точек = 11 Кбайт/7 бит = 11*1024*8 бит/7 бит=12873,1428571
Если считать, что информации не 11 Кбайт, а 14 (что скорее всего),
то 14*1024*8/7=16384
2. 42 Кбайт/(64*128 пикселов)=42*1024 байт/8192=5,25 байт=42 бит
кол-во цветов = 2^42=что-то очень много, скорее всего - опять опечатка
если вместо 42 взять 12, то 12 Кбайт/(64*128 пикселов)=12*1024 байт/8192=1,5 байт=12 бит
кол-во цветов = 2^12=4096
3. 64*64*log(2)32/(1024*8)=2.5 Кбайт
4. log(2)512/log(2)32=9/5=1,8
5. количество цветов должно быть 16 777 216
log(2)16777216=24 (бит на один пиксель), в байтах 24/8=3

2)
USES CRT;
VAR A:array[0..200] of integer;   
       i,max,s:integer;
BEGIN
CLRSCR;
Randomize;   
   Writeln('Дан массив:'); 
   for i:=0 to 200 do     
      begin         
         A[i]:=-100+random(150);         
         Write(A[i],'   ');     
      end;

       s:=0;   
       max:=A[0];

       for i:=0 to 200 do     
          begin         
             if A[i] > max then max:=A[i];         
             if A[i]>=0 then s:=s+1;     
          end;   
       
        Writeln;   
        Writeln('Максимальный элемент массива  = ', max);   
        Writeln('Кол-во положительных элементов = ',s);
READLN;
END.