Редактор який дозволяє працювати з графічним зображенням?​

Как я понял, вам необходимо было исправить ошибки в коде. Если это так, то
Program ddd;
var tg, f:real;
x:integer;
begin
readln (x);
tg := sin(x)/cos(x);
if x<=-3.14 then f:=ln(cos(5*x)-2*x)+1;
if x>-3.14 then f:=0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x));
writeln (f);
end.

Обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). Функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f:=ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). Приравнивать переменные одих типов к значению других -- ошибка (f:integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. Следовательно, f не может присвоить возвращаемое значение функции ln).

Программа:

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.