Формуле (x+1)2−−−−−−−√3 соответствует арифметическое выражение на Фортране

Программа:

Pascal:

const n = 20;  // кол-во элементов в массиве

var

 arr: array[1..n] of integer;

 i, maxEven: integer;

begin

 maxEven := -MAXINT;  // для будущего поиска минимального числа

 write('Массив: ');

 for i := 1 to n do

 begin

   arr[i] := random(-10, 10);  // заполнение случайными числами от -10 до 10

   write(arr[i], ' ');  // вывод элемента

   if arr[i] mod 2 = 0 then  // если число чётное, то...

     maxEven := arr[i];  // установить значение переменной maxEven, равное текущему макс.элементу

 end;

 

 writeln(#13, 'Максимальный чётный элемент: ', maxEven);

end.

После коррекции уровней внешний вид фотографии значительно улучшается, она становится более контрастной, содержит достаточно большое число и светлых, и тёмных пикселей. Однако гистограмма после коррекции не сплошная, а состоит из отдельных полосок (см. рис. 8.8). Это значит, что пикселей с некоторыми значениями яркости нет совсем (подумайте почему).

Заметим, что над гистограммой в окне Уровни расположен выпадающий список, в котором можно выбрать для коррекции один цветовой канал: красный, синий или зелёный. Это даёт возможность настраивать каждый канал отдельно.