1. Назовите известные Вам графические редакторы.

2. В каких случаях производится кадрирование?

3. Какие действия нужно выполнить, чтобы изменить перспективу?

4. Что означает понятие "маска"?

5. Как производится ретушь?

6. Что означает понятие "клонирование"?

7. В чем различие режимов клонирования с выравниванием и без выравнивания?

8. Для чего используется клонирование?

9. Чем отличается локальная коррекция от глобальной коррекции?

10. Какая команда используется для коррекции контрастности?

11. Что означает понятие "нейтральные области цвета"?

12. Как осуществляется коррекция цвета?

13. Как изменить размер изображения?

14. В каких графических форматах сохраняют изображения для публикации в сети Интернет?

15. Каким требованиям должны удовлетворять изображения, публикуемые в Интернет?

16. Какие основные идеи сжатия изображения с алгоритма JPEG?

17. Чем отличаются растровые и векторные изображения?

18. Что означает понятие "слои"?​

Ао условию, у тебя два шкафа, в каждом из которых 128 полок, и в этих полках 4 единицы (во всех 128), значит в обоих шкафах 8 единиц, отсюда следует:
Максимальное кол-во единиц при 126 полках с нулями и 2 полками с единицами
(1111000v000111=1111111 и 0000000v1000000=1000000) т..е. в 3 шкафу будет 126 полок с нулями и 2 полки с 8 единицами.
Минимальное кол-во при 127 полками нулей и 1 полкой единиц
(1111000v1111000=1111000) т.е. в 3м шкафу будет 127 полок с нулями и 1 полка с 4 единицами.
Значит максимум 8 единиц, а минимум 4

1. Короткий современный вариант ("один оператор")

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Writeln('Sпол.неч = ',ArrRandom(50,-10,20).Println
    .Where((x,i)->(x>0) and (i.IsEven)).Sum)
end.

Тестовое решение
15 16 0 17 20 7 -3 -4 9 9 -3 -8 14 10 10 11 7 18 -8 8 0 15 1 4 11 1 9 -10 -7 -7 12 17 8 13 7 15 1 13 12 11 4 -5 -3 -6 -5 -10 -9 -8 8 -8
Sпол.неч = 148

2. Длинный "школьный" вариант ("почувствуйте разницу")

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
  a:array[1..50] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 50 do begin
    a[i]:=Random(31)-10; Write(a[i],' ');
    if (a[i]>0) and Odd(i) then s:=s+a[i]
    end;
  Writeln;
  Writeln('Sпол.неч = ',s)
end.

Тестовое решение
4 14 4 7 9 -4 3 6 20 -10 3 -3 15 12 9 0 3 12 13 -1 9 -2 -2 16 18 -2 5 9 17 -3 4 -6 10 10 -5 10 8 13 12 15 13 1 12 1 7 6 9 2 -9 -6
Sпол.неч = 207