Написать программу, которая вводит массив из n вещественных чисел, а затем заменяет в нём все элементы, превышающие данное число z, этим числом. вывести на экран полученный массив и количество замен. протестировать программу на следующих исходных данных: а) z=10 массив: 1, 2 2, 6 3 -4, 5 11 10, 2 3, 2 87 -15 б) z=-2 массив: 0 -3, 1 11 -7, 9 -2, 1 -1, 9 4

//PascalABC.Net 3.2
begin
var a:=readARRreal('Вводите: ', readinteger('n ='));
var z:=readreal('z ='); var count:=0;
for var i:=0 to length(a)-1 do if a[i]>z then begin
a[i]:=z;
count+=1;
end;
writeln ('Кол-во замен: ', count);
a.Print;
end.

Растровые редакторы в основном редактируют цвета пикселей на изображении.
Для целого изображения - настройка цветности, контраст, баланс белого, кривые, наложение фильтров, трансформации (обрезать, повернуть, маштабировать)
Можно выделить отдельный кусочек изображения и сделать с ним те же операции

вырезать/скопировать кусок, клонировать/штамп, коллажировать, добавить текст, нарисовать что-то от руки и прочее и прочее

Простые растровые редакторы типа Paint могут только добавить тест, рисовать от руки или простые геометрические фигуры, обрезать, изменить размер 

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  if a.Rows.SelectMany(x->x).Sum mod 21=0 then
    Writeln('Сумма элементов одновременно делится на 3 и на 7')
  else
    Writeln('Сумма элементов одновременно не делится на 3 и на 7')
end.

Примеры
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
  73 -53  69 -94 -38  50  30
  -9  63  54  28 -56  68  21
 -97  18 -80  68  86 -27  -3
  33 -30 -17   6 -69 -95 -81

Сумма элементов одновременно не делится на 3 и на 7

Количество строк в матрице: 5
Количество столбцов в матрице: 4
*** Исходная матрица [5,4] ***
 -53  14  50  52
 -81  55  14 -89
  99 -53  37  96
  73  27  -8 -85
   0  -8  46  50

Сумма элементов одновременно не делится на 3 и на 7